Code Snippets

Looping Through a String Concatenation

Dim iseperatepos As Integer 

Do While Len(sText) > 0 
   iseperatepos = Instr(1, sText, ";") 
   If (iseperatepos > 0) Then 
      sCurrent = Left(sText, iseperatepos - 1) 
      sText = Right(sText, Len(sText) - iseperatepos) 
   Else 
      sCurrent = sText 
      sText = "" 
   End If 

Loop 

Remove Words with Numbers

Function RemoveWordsWithNumbers(s As String) As String 
Dim a() As String 
Dim i As Long 
Dim r As String 
    a = Split(s) 
    For i = 0 To UBound(a) 
        If Not a(i) Like "*[0-9]*" Then 
            r = r & " " & a(i) 
        End If 
    Next i 
    If r <> "" Then 
        r = Mid(r, 2) 
    End If 
    RemoveWordsWithNumbers = r 
End Function