Zahlen übernehmen aus inputbox?

Function MakroStart()
Application.Volatile
eingabe
End Function

Sub eingabe()
Dim zahlN As Integer
Dim Temp As String
Temp = InputBox("Bitte geben sie die Konzentration der Säure an", "Konzentration Säure", "Einheit mol/l")
MsgBox "Die Konzentration wurd übernommen"
zahlN = CInt(Temp) <-- das der Fehler`? ZahlN ?
Cells(5, 17).Select
Cells(5, 17).Value = zahlN