VBA als Function

ich habe folgendes VBA
Sub Ziel_Wert()

Dim Ziel_Wert As Double, i As String, y As String
i = InputBox("Zelle, die Zielwert erhalten soll") 'i = "B5"
y = InputBox("Veränderbare Zelle") 'y = "B2"
Ziel_Wert = InputBox("Ziel Wert eingeben")
Range(i).GoalSeek Goal:=Ziel_Wert, ChangingCell:=Range(y)

End Sub

Nun möchte ich das ganze als Function definieren und komme nicht weiter. Hat jemand einen Tip für mich?

Danke