Example - Hex Function

1. Sub Main ()

   1. Dim Msg As String, x%

      x% = 10

      Msg =Str( x%) &" decimal is "

      Msg = Msg & Hex(x%) & " in hex "

      MsgBox Msg

   End Sub