转化十六进制

Private Sub Command1_Click()
  Dim a As Integer
  Dim b As Integer
  Dim yushu As Integer
  a = 1230: b = 16
  While a <> 0
      yushu = a Mod b
      If yushu < 10 Then
         s = yushu & s
      Else
         s = Chr(yushu + 55) & s
      End If
      a = a \ b
  Wend
  Print s
End Sub