must be an easier way...[Resolved] figured it out myself!

[MiddleAged1]

Function DecimalToBinary(ByVal lngBin As Long, lngDesc As Long) As Long
    Dim intNum As Integer
    
    Dim lngBinary2 As Long
    Dim lngDecimal As Long
    
    intNum = txtNum.Text
    
    For intNum = intNum To 255
        If intNum >= 2 ^ 7 Then
            strNewNum = strNewNum & "1"
            intNum = intNum - 2 ^ 7
        Else
            strNewNum = strNewNum & "0"
        End If
        If intNum >= 2 ^ 6 Then
            strNewNum = strNewNum & "1"
            intNum = intNum - 2 ^ 6
        Else
            strNewNum = strNewNum & "0"
        End If
        If intNum >= 2 ^ 5 Then
            strNewNum = strNewNum & "1"
            intNum = intNum - 2 ^ 5
        Else
            strNewNum = strNewNum & "0"
        End If
        If intNum >= 2 ^ 4 Then
            strNewNum = strNewNum & "1"
            intNum = intNum - 2 ^ 4
        Else
            strNewNum = strNewNum & "0"
        End If
        If intNum >= 2 ^ 3 Then
            strNewNum = strNewNum & "1"
            intNum = intNum - 2 ^ 3
        Else
            strNewNum = strNewNum & "0"
        End If
        If intNum >= 2 ^ 2 Then
            strNewNum = strNewNum & "1"
            intNum = intNum - 2 ^ 2
        Else
            strNewNum = strNewNum & "0"
        End If
        If intNum >= 2 ^ 1 Then
            strNewNum = strNewNum & "1"
            intNum = intNum - 2 ^ 1
        Else
            strNewNum = strNewNum & "0"
        End If
        If intNum >= 2 ^ 0 Then
            strNewNum = strNewNum & "1"
            intNum = intNum - 2 ^ 0
        Else
            strNewNum = strNewNum & "0"
        End If
        intNum = 256
    Next intNum
End Function

there must be an easier way to do that without all those if statements... can some1 show me how plz?