Sub juhu()
 
Dim Var As String
Dim Stadtname As String
 
Var = ""
 
Stadtname = "Leipzig"
Var = StadtnameEnthalten(Stadtname, Var)
 
Stadtname = "München"
Var = StadtnameEnthalten(Stadtname, Var)
 
Stadtname = "Berlin"
Var = StadtnameEnthalten(Stadtname, Var)
 
Stadtname = "Hamburg"
Var = StadtnameEnthalten(Stadtname, Var)
 
Var = StadtnameEnthalten(Stadtname, Var)
Stadtname = "München"
 
Var = Left(Var, Len(Var) - 1)
 
Dim arr() As String
arr = Split(Var, ",")
 
End Sub
 
Private Function StadtnameEnthalten(ByVal Stadtname As String, ByVal Var As _
  String) As String
If InStr(1, Var, Stadtname) <= 0 Then
StadtnameEnthalten = Var & Stadtname & ","
Else
StadtnameEnthalten = Var
End If
End Function

EALA FREYA FRESENA