Module VBModule
 
    Sub Main()
        Dim pyg As String = "ay" 'Defining Pig Latin variable
        console.writeline("Enter string to be translated: ")
        Dim str As String = console.read() 'Defining string to be modified
        Dim stri As String ' Declaring variable for lower-case string
        Dim first As Char 'Declaring First character variable
        Dim neword As String 'Declaring new word variable
        If len(str) > 0 Then 'If string is genuine
            stri = str.ToLower() 'String is converted to lower case
            first = stri.Substring(0,1) 'Getting first character of string
            If first = "a" or first = "e" or first = "i" or first = "o" or first = "u" Then 'If letter begins with vowel
                neword = stri+pyg 'Concatinating strings
                console.writeline(neword) 'Writing output
            Else
            neword = stri.Substring(1)+stri.substring(0,1)+pyg 'Concatinating strings
            console.writeline(neword) 'Outputting value
            End If
        End If
    End Sub
End Module

TW9kdWxlIFZCTW9kdWxlCiAKICAgIFN1YiBNYWluKCkKICAgICAgICBEaW0gcHlnIEFzIFN0cmluZyA9ICJheSIgJ0RlZmluaW5nIFBpZyBMYXRpbiB2YXJpYWJsZQogICAgICAgIGNvbnNvbGUud3JpdGVsaW5lKCJFbnRlciBzdHJpbmcgdG8gYmUgdHJhbnNsYXRlZDogIikKICAgICAgICBEaW0gc3RyIEFzIFN0cmluZyA9IGNvbnNvbGUucmVhZCgpICdEZWZpbmluZyBzdHJpbmcgdG8gYmUgbW9kaWZpZWQKICAgICAgICBEaW0gc3RyaSBBcyBTdHJpbmcgJyBEZWNsYXJpbmcgdmFyaWFibGUgZm9yIGxvd2VyLWNhc2Ugc3RyaW5nCiAgICAgICAgRGltIGZpcnN0IEFzIENoYXIgJ0RlY2xhcmluZyBGaXJzdCBjaGFyYWN0ZXIgdmFyaWFibGUKICAgICAgICBEaW0gbmV3b3JkIEFzIFN0cmluZyAnRGVjbGFyaW5nIG5ldyB3b3JkIHZhcmlhYmxlCiAgICAgICAgSWYgbGVuKHN0cikgPiAwIFRoZW4gJ0lmIHN0cmluZyBpcyBnZW51aW5lCiAgICAgICAgICAgIHN0cmkgPSBzdHIuVG9Mb3dlcigpICdTdHJpbmcgaXMgY29udmVydGVkIHRvIGxvd2VyIGNhc2UKICAgICAgICAgICAgZmlyc3QgPSBzdHJpLlN1YnN0cmluZygwLDEpICdHZXR0aW5nIGZpcnN0IGNoYXJhY3RlciBvZiBzdHJpbmcKICAgICAgICAgICAgSWYgZmlyc3QgPSAiYSIgb3IgZmlyc3QgPSAiZSIgb3IgZmlyc3QgPSAiaSIgb3IgZmlyc3QgPSAibyIgb3IgZmlyc3QgPSAidSIgVGhlbiAnSWYgbGV0dGVyIGJlZ2lucyB3aXRoIHZvd2VsCiAgICAgICAgICAgICAgICBuZXdvcmQgPSBzdHJpK3B5ZyAnQ29uY2F0aW5hdGluZyBzdHJpbmdzCiAgICAgICAgICAgICAgICBjb25zb2xlLndyaXRlbGluZShuZXdvcmQpICdXcml0aW5nIG91dHB1dAogICAgICAgICAgICBFbHNlCiAgICAgICAgICAgIG5ld29yZCA9IHN0cmkuU3Vic3RyaW5nKDEpK3N0cmkuc3Vic3RyaW5nKDAsMSkrcHlnICdDb25jYXRpbmF0aW5nIHN0cmluZ3MKICAgICAgICAgICAgY29uc29sZS53cml0ZWxpbmUobmV3b3JkKSAnT3V0cHV0dGluZyB2YWx1ZQogICAgICAgICAgICBFbmQgSWYKICAgICAgICBFbmQgSWYKICAgIEVuZCBTdWIKRW5kIE1vZHVsZQ==

VGVzdGluZw==

Testing