Visual Basic - desbordamiento

hola amigos:
uso estA funcion para covertir montos a letras pero me manda un error
6 de desbordamiento

Function EnLetras(monto As Double) As String
Dim entero As Integer, decimal1 As String, Tempo As Integer
Dim Pal As String, Gg As String

Pal = ""
entero = Int(monto) '''''''''''''''''''''''''''''''''''''''''''''''''''''JUSTAMENTE EN ESTA PARTE
AL PARECER EL INT NO SOPORTA

decimal1 = Format((monto - entero) * 100, "00") + "/100 NUEVOS SOLES x.x.x.x.x."
If monto >= 1000 Then
Tempo = Int(monto / 1000)
If Tempo = 1 Then
Pal = "MIL "
Else
Pal = Cientos(Tempo) + " MIL "
End If
entero = entero - Tempo * 1000
End If
Gg = Cientos(entero)
If entero = 0 And Pal = "" Then Gg = "CERO"
EnLetras = Pal + Gg + " CON " + decimal1

End Function

ESPRO ME PUEDAN DAR ALGUNA AYUDA GRACIAS............................

el problema es que doble, aguanta cantidades mas grandes que el integer, y el Int(entero), puede ser mas grande que lo que soporta la variable, declara entero como Double. Creo q esto lo arregla