Sub TheGameName(nombre As String)
    Dim As String x = Lcase(nombre)
    x = Ucase(Mid(x,1,1)) + (Mid(x,2,Len(x)-1))
    Dim As String x0 = Ucase(Mid(x,1,1))

    Dim As String y
    If x0 = "A" Or x0 = "E" Or x0 = "I" Or x0 = "O" Or x0 = "U" Then
        y = Lcase(x)
    Else
        y = Mid(x,2)
    End If

    Dim As String b = "b" + y, f = "f" + y, m = "m" + y

    Select Case x0
    Case "B" : b = y
    Case "F" : f = y
    Case "M" : m = y
    End Select

    Print x + ", " + x + ", bo-" + b
    Print "Banana-fana fo-" + f
    Print "Fee-fi-mo-" + m
    Print x + "!" + Chr(10)
End Sub

Dim listanombres(5) As String = {"Gary", "EARL", "billy", "FeLiX", "Mary", "ShirlEY"}
For i As Integer = 0 To Ubound(listanombres)
    TheGameName(listanombres(i))
Next i
Sleep