Visual Basic - Retorno datos desde funcion

Hola a todos, espero que me puedan ayudar

tengo un campo de base datos y llamo a una funcion como retorno el valor de resultado desde la funcion:

ejemplo:

nombre1= Buscaramo(AsigNom(1), 1) cambo de base datos
nombre2= Buscaramo(AsigNom(2), 2)
nombre3= Buscaramo(AsigNom(3), 3)
nombre4= Buscaramo(AsigNom(4), 4)

Function BuscaRamo(cDato As String, cPos As Double)
For xx = 0 To AsigNom(Pos).ListCount - 1
If AsigNom.List(xx) = cDato Then
AsigCod.Text = "" & AsigCod.List(xx) valor a devolver como ??
Exit Function
End If
Next
End Function

necesito el valor devuelta, ademas esa misma funcion a aplicable a varios campos.

Function BuscaRamo(cDato As String, cPos As Double) as String
For xx = 0 To AsigNom(Pos).ListCount - 1
If AsigNom.List(xx) = cDato Then
AsigCod.Text = "" & AsigCod.List(xx) valor a devolver como ??
'Asi se devuelve
BuscaRamo = "" & AsigCod.List(xx)

Exit Function
End If
Next
End Function