Module Module1

    Sub Main()
        Dim p1 As Integer = 0
        Dim p2 As String = "caw"
        p1 = p2
        MsgBox(p1 & "   " & p2 &
        If p1 > 22 Then
            MsgBox("Je väčšie)





    End Sub

End Module