Return en værdi fra en funktion

Hej jeg skal have returneret en værdi fra en funktion. Jeg har prøvet med følgende kode, men det virker ikke. Den melder fejl på min Return kommando

Public Sub Test()
Dim værdi As String
værdi = find_kurs(1)
End Sub


Public Function find_kurs(tal As Integer) As String
Return "lsdkjfl"
End Function

er der nogen der kan hjælpe???