Hello, i am remaking this Temperature converter program to convert Feherinhite to Celcis and well i have a bug and i don't know what i have done wrong, and i get an error that says "type mismatch error" and i was like hm....does that mean i dimmed the wrong way like, somthing shoulda been a string insteed of a integer but then i took them all to varient and i still get an error but this time it says, "ByRef type mismatch", i had to working with this other code but i wanted to try and experiment with Functions insteed of just writing it all in the form load even producer, here is the code i wrote so far.
Code:
Option Explicit

Private Sub Form_Load()
Dim FTemp As Integer          'faherenhite temp
Dim CTemp As Integer          'Celcis Temp
Dim Prompt As String          'Message

Prompt = "Please Enter your Feherinhite degree to be converted to Celcis."
Do
    FTemp = InputBox(Prompt, "Feherinhite to Celcis")
    If FTemp <> "" Then
    CTemp = ConversionFtoC(FTemp)
    MsgBox (CTemp), , "Celcis Degree"
    End If
    Loop While FTemp <> ""

End Sub

Public Function ConversionFtoC(X As Integer)
ConversionFtoC = Int((X - 32) * 5 / 9)