Private Function PosImAlpha(ByVal BuchstabenKette As String) As List Of(Integer)
 
PosImAlpha = New List( Of Integer)
Dim Alpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 
For Each Chr As Char In BuchstabenKette
    PosImAlpha.Add(Alpha.IndexOf(Chr))
Next
 
Return PosImAlpha
 
End Function

Private Sub PosErmitteln
 
Dim PosAlpha as New List(Of Integer)
PosAlpha = PosImAlpha("OPQR")
 
End Sub