Hello Everyone!

Need help with some code, this is what I have but first off its just a very basic calculator to come up with a scale factor. I have this dialog box seen in pic, and this code:
[VBA]Private Sub CommandButton1_Click()

Dim crfeet As Double
Dim crinch As Double
Dim nrfeet As Double
Dim nrinch As Double
Dim cfeet As Double
Dim nfeet As Double
Dim fscale As Double

cfeet = (crfeet * 12) + crinch ' For Text Box input
nfeet = (nrfeet * 12) + nrinch ' For Text Box input

fscale = (cfeet / nfeet)


Dim Msg, Style, Title, Response, MyString
Msg = "fscale" ' Define message.
Style = CommandButton1 ' Define buttons.
Title = "Scale Factor" ' Define title.
' context.
' Display message.
Response = MsgBox(Msg, Style, Title)

End Sub
[/VBA]

But Its hanging up on this part:
[VBA]fscale = (cfeet / nfeet)
[/VBA]

Any help is appreciated!