' Code
    text = WandleUm(zahl)
    ' Code
 
    Private Function WandleUm(ByVal Value As Integer) As String
        Select Case Value
            Case 1
                Return "Hallo "
            Case 2
                Return "Welt, "
            Case 3
                Return "ich "
            Case 4
                Return "bin "
            Case 5
                Return "zu "
            Case 6
                Return "dumm "
            Case 7
                Return "oder auch nicht? "
        End Select
    End Function