Несовподение типов - VB

Private Sub Command1_Click()
 
Dim Nko, Pv, Mv, Wion, Pgc, Tk, Cu, Cr, R, M, Pk, t As Single
 
Pv = Text1.Text
Mv = Text2.Text
Wion = Text4.Text
Cu = Text5.Text
R = Text6.Text
M = Text7.Text
t = Text9.Text
 
If Combo1.ListIndex = 0 Then
MsgBox "путь 1", vbExclamation
Nko = (3 * Pv) / (1.7 * 10 ^ -27 * Mv)
End If
 
If Combo1.ListIndex = 1 Then
MsgBox "путь 2", vbExclamation
Pgc = 9.8 * Wion
End If
 
If Combo1.ListIndex = 2 Then
MsgBox "путь 3", vbExclamation
Tk = (2.5 * 10 * 10 ^ -7 * (4 * 10 ^ 6) ^ 2) / Cu
End If
 
If Combo1.ListIndex = 3 Then
MsgBox "путь 4", vbExclamation
Cr = (5 / 2) * (R / M)
End If
 
If Combo1.ListIndex = 4 Then
MsgBox "путь 5", vbExclamation
Pk = Pv / (1.3 * 10 ^ 9 * t ^ (5 / 4) + 1)
End If
 
Label4.Caption = Nko
Label7.Caption = Pgc
Label11.Caption = Tk
Label15.Caption = Cr
Label19.Caption = Pk
 
End Sub