I just ran the following without problem 
Sub cummins()
    Dim num As String, number As Long
    num = "72702"
    number = num
End Sub