Binary Conversion in VB

[roger]

Useful Binary Conversion. This program convert Binary to text and text to binary. This program has one Form1 (Main.frm), textbox (Text1.Text), two button, (cmdConvtoBin and cmdConvtoText) and a module1 (Binary.bas)



Private Sub cmdConvtoBin_Click()
MainText = Text1.Text
ConvertBin MainText
Text1.Text = MainText
End Sub
Private Sub cmdConvtoText_Click()
MainText = Text1.Text
ConvertToText MainText
Text1.Text = MainText
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub