How to add a comma before first number in a string using Excel VBA

Question

I need to insert a comma before the first number in a string in an Excel macro so I can split a zip code that is included with a city in an address (there is no space between the city and zip to use). How would I do this?

Answer 1

would a function do? Zip lenght differs, so.

What about this?

    Function kommainstring(s As String)
      Dim i As Byte
      For i = 1 To Len(s)
        If IsNumeric(Mid(s, i, 1)) Then Exit For
      Next i
      kommainstring = Left(s, Len(s) - (Len(s) - i + 1)) & "," & Right(s, (Len(s) - i + 1))
    End Function