¿Qué pasa si le pones double a ambas?

Ami me paso algo similar cuando hacia un algoritmo de resolucion de ecuaciones (1,2, y 3er grado) solo que se situaba en un problema con puntos decimales, solo declare las variables con global (En lugar de Public u otro en alguna otra parte) en un modulo X, ojala sea algo similar.¡!

global variable as double
 
 

P.D.: Es mas facil ayudarte si pones la parte de tu source, y por consiguiente detectar el Problema 'X'¡!

Ok, aca coloco el segmento que no me funciona, quite las declaraciones!! para no pasar pena aqui jajaja bueno, la cosa es que el valor donde esta guardado Ha, por ejemplo, es 4,878.. y en las operaciones solo toma el 4, el valor de Hd generalmente es un entero...

Private Sub cmdNb_Click()

Hd = Val(lblHd.Caption)
Ha = Val(lblHa.Caption)

If lblHa.Caption = "" Then
MsgBox "No se ha calculado el valor de la potencia nominal tabulada por banda", vbExclamation, "Advertencia"
ElseIf lblHd.Caption = "" Then
MsgBox "No se ha calculado el valor de la potencia de diseño", vbExclamation, "Advertencia"
ElseIf (Hd Mod Ha) = 0 Then
Nb = (Hd / Ha)
lblNb.Caption = Nb
Else
Nb = (Hd \ Ha)+1
lblNb.Caption = Nb
End If

End Sub

Mira esto funciona correctamente...

Dim num1 As Single
Dim num2 As Single
Dim res As Single
 
Private Sub Command1_Click()
num1 = Val(Text1.Text)
num2 = Val(Text2.Text)
If num2 <> 0 Then
    res = num1 / num2
Else
    MsgBox "Division por cero"
End If
Text3.Text = res
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Mmmm creo que entiendo...

mira

dim num as single
num=label1.caption

Fijate si te funciona así