Funktionsaufruf

habe folgendes Script:

Sub Währung()

Dim i%, rw%
rw = Cells(Rows.Count, 3).End(xlUp).Row
For i = 5 To rw
If Range("K" & i).Value = "" Then
!!!!Hier soll der Aufruf erfolgen!!!!
ElseIf Range("K" & i).Value >= "0" Then
Range("D" & i).FormulaR1C1 = "=RC[7]*R8C8"
End If
Next i

Range("A1").Select
End Sub

Function RechnenFirst()

If Range("C" & i).Value = "" Or Range("C" & i).Value = "Gewinn" Or Range("C" & i).Value = "Verlust" Then
Else:
Range("D" & i).Select
Selection.Copy
Range("K" & i).Select
ActiveSheet.Paste
Range("D" & i).FormulaR1C1 = "=RC[7]*R8C8"
End If
Next i
End Function

Ich möchte in der Sub die Function nach der ersten Bedingung aufrufen lassen! Wie funzt das? Passt der Rest?

Gruß Bernhard