Imports System

Public Module Module1

    Public Sub Main()

        Dim txtName = "Ben, Abel"

        Dim split As String() = txtName.Split(",")

        Dim last As String = split(0).Trim()

        Dim first As String = split(1).Trim()

        Dim cityState = "45123"

        Dim invFirst = first.Substring(0, 1)

        Dim invLast = last.Substring(0, 1)

        Dim invZip = cityState.Substring(cityState.Length - 3)

        Dim invNumber = invFirst + invLast + invZip

        Console.WriteLine(invNumber)

    End Sub

End Module