cassiobit

oi pessoal sou novo por aqui,trabalho na area de eletronica automotiva ,sou novo tambem em programação ,estou desenvolvendo um programa conversor binario para decimal ,a função do programa e abrir um arquivo bin ler 2 posições do mesmo ,convertelas de bin para dec ,e apresentar no display como dec ,o codigo ate agora e Private Sub cmdok_Click() If (Right$(Dir1.Path, 1) = "\") Then FileName$ = Dir1.Path + File1.FileName Else FileName$ = Dir1.Path + "\" + File1.FileName End If Open FileName$ For Binary As #1 Get #1, 0 + 1, FileName$ Text1.Text = FileName$ End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub preciso agora de uma função q converta o byte (0+1) em dec alguém pode me ajudar obrigado