AAAH!!! i'm running out of time!!!

[MiddleAged1]

ok so i have this...

Option Explicit
Dim strNewNum As String
 
Function DecimalToBinary(ByVal lngBin As Long, lngDesc As Long) As Long
    Dim intNum As Integer
    
    Dim lngBinary2 As Long
    Dim lngDecimal As Long
    Dim lngStepping As Long
    Dim strDigit As String
    
    
    intNum = txtNum.Text
    lngStepping = 1
    
    Do Until intNum \ lngStepping = 1
        lngStepping = lngStepping * 2
    Loop
    Do Until intNum <= 0
        strDigit = intNum \ lngStepping
        strNewNum = strNewNum & strDigit
        intNum = intNum Mod lngStepping
        lngStepping = lngStepping / 2
    Loop
End Function
 
Private Sub cmdBtoD_Click()
    
End Sub
 
Private Sub cmdDone_Click()
    Unload Me
End Sub
 
Private Sub cmdDtoB_Click()
    Dim lngBinary As Long
    lngBinary = DecimalToBinary(1, 65000)
    MsgBox (strNewNum)
End Sub

it all works...

now how do you convert the binary back to decimal? (no case plz i havn't learned them)