Dim s1 As String
    Dim s2 As String
    Dim s3 As String
 
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button10.Click
 
        Dim SplitPos As Integer = TextBox1.Text.IndexOf("-")
 
        s1 = TextBox1.Text.Substring(0, SplitPos)
        s2 = TextBox1.Text.Substring(SplitPos + 1, TextBox1.TextLength - _
          SplitPos - 2)
        s3 = TextBox1.Text.Substring(TextBox1.TextLength - 1, 1)
 
        If s1 = "ASO1" Then
            s1 = "Ottostraße 1"
        End If
        If s2 = "117" Then
            s2 = "Schrank 117"
        End If
 
        MessageBox.Show(s1 & vbLf & s2 & vbLf & s3)
 
    End Sub

fg viperbone