Module Module1
Sub Main()
Dim s As String
Console.Write("Zadejte text: ")
s = Console.ReadLine
s = UCase(s)
Console.WriteLine("Upraveny retezec: {0}", s)
Console.ReadLine()
End Sub
End Module
program ke stažení