Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        TextBox1.Text = GibPosition((TextBox1.Text), trennzeichen( _
          TextBox2.Text))
 
    End Sub
 
 
 
    Private Function GibPosition(ByVal Buchstaben As String, ByVal TZ As _
      String) As String
        'Dim returnValue As String
 
 
        Dim Alphabet As String
        Alphabet = " ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 
        Dim Positionen As String
        Positionen = ""
 
        Dim BuchstabenLänge As Integer
        BuchstabenLänge = Buchstaben.Length
 
        Dim i As Integer
 
        For i = 0 To BuchstabenLänge - 1
            Dim Buchstabe As String
            Buchstabe = Buchstaben.Substring(i, 1)
 
            Dim Position As Integer
            Position = Alphabet.IndexOf(Buchstabe)
 
            If i = 0 Then
                Positionen = Positionen & Position.ToString
            Else
                Positionen = Positionen & TZ & Position.ToString
            End If
 
        Next i
        Return Positionen
    End Function
 
    Private Function trennzeichen(ByVal zeichen As String) As String
 
        Dim TZ As String
        TZ = TextBox2.Text
 
        Return TZ
    End Function
End Class

-----

-.-