Private Sub Command1_Click()
Dim Text As String
Dim TextEinzel() As String
Dim N As Long
 
  Text = "Strasse, Plz, Ort"
  TextEinzel = Split(Text, ",")
 
  For N = 0 To UBound(TextEinzel)
    MsgBox TextEinzel(N)
  Next
 
End Sub