Que codigo estas usando?, que error te da?, cuando hagas una pregunta, te sugiero ser lo mas explicito posible y de preferencia poner el codigo que usas, tal vez tu error sea el tipo de variable que estes usando...
En un formulario pon un cuadro de texto que se llame txtNumero y un boton de comando que se llame cmdAceptar a este boton en su evento Click pruebale el siguiente codigo...
Private Sub cmdAceptar_Click()
Dim miNumero As Long
If IsNumeric(Trim(txtNumero)) Then
miNumero = CLng(Trim(txtNumero.Text))
MsgBox "Este si es un número: " & Format(miNumero)
Else
MsgBox "Este dato NO es un número"
End If
End Sub