Eine funktionierende Private Sub Formel als Public Function

Ich habe eine funktionierende Formel auf mehrere Elemente verteilt und möchte diese nun als Public Function definieren,
jedoch kriege ich es einfach nicht gebacken diesesmal..

Hallo an alle
Ich bin relativ neu in der Programmation und bastele seit 3 Tagen an einem Password Generator.
Der funktioniert relativ gut und nun moechte ich noch einiges aufraeumen und all die Formeln die des oefteren benutzt werden als Function zusammenfassen

Ich habe zBsp hier eine TextBox in der ich mit der Formel unten nur die Eingabe von "0123456789" erlaube.
So als Private Sub funktioniert das auch relativ gut aber ich kriege die Formel unten einfach nicht in eine Public Function


Die Public Funtion würde dann so aussehen mit der Ausfuehrung (nun werded ihr aber etwas feststellen... dazu untendrunter):



Ja... zuerst weiß ich nicht richtig wie ich den Output definiere, ich habe es schon mit "Return Input = theText" probiert aber was ist dann mit " Input.Select(SelectionIndex - Change, 0)"?

Ich hoffe ihr koennt mir helfen!
MFG Michel

P.S.: Bitte überseht die vielen Programmierfehler fürs erste, ich bin Anfänger

Public Function blockCharNotNum(theText as string) as string

Dim Letter As String
Dim SelectionIndex As Integer = Input.SelectionStart
Dim Change As Integer

For x As Integer = 0 To theText .Length - 1
  Letter = theText .Substring(x, 1)
  If charactersAllowedNUM.Contains(Letter) = False Then
    theText = theText.Replace(Letter, String.Empty)
    Change = 1
  End If
Next

return theText 
end function

    Public Function blockCharNotNum(ByVal theText As String)
        Dim charactersAllowedNUM As String = AllNumChar
        Dim Letter As String
        ' Dim theText As String = Input  
        Dim SelectionIndex As Integer = theText.SelectionStart
        Dim Change As Integer
        For x As Integer = 0 To theText.Length - 1
            Letter = theText.Substring(x, 1)
            If charactersAllowedNUM.Contains(Letter) = False Then
                theText = theText.Replace(Letter, String.Empty)
                Change = 1
            End If
        Next
        Return theText
    End Function

public function blockCharNotNum(theText as string) as string

Dim charactersAllowedNUM As String = "0123456789"  
Dim Result as string=""  

for each c as char in theText.ToCharArray
  if charactersAllowedNUM.Contains(c) then
    Result += c
  end if
next

return Result
end function

Private Sub TxBxPswdLgth1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxBxPswdLgth1.TextChanged

  TxBxPswdLgth1.Text = blockCharNotNum(TxBxPswdLgth1.Text)

End Sub