Написать программу перевода из битов в байты, килобайты, мегабайты и обратно - VB

Dim b As Double
Dim rez As Double
Dim n As Double
 
Private Sub гиг_Click()
b = Val(Text1.Text)
Label1.Caption = "Мегабайт"
rez = b * 1024
Label3.Caption = "Килобайт"
Label4.Caption = rez
End Sub
 
Private Sub Килобит_килобайт_Click()
b = Val(Text1.Text)
Label1.Caption = "Килобит"
rez = b / 8
Label3.Caption = "Килобайт"
Label4.Caption = rez
End Sub
 
Private Sub Мега_Click()
b = Val(Text1.Text)
Label1.Caption = "Байт"
rez = b * 8
Label3.Caption = "Бит"
Label4.Caption = rez
End Sub