fonction SI then

Bonjour tous le monde

j'ai un problème que je ne peux résoudre seul?

le problème est que j'ai une fonction la voici :
-------------------------------------
If Range("B2") <> "" Then
sEntete = "banane"
.writeLine sEntete
End If
--------------------------------------
et je veux l’écrire comme une fonction a part :
--------------------------------------
Function condition(caseX As Integer) As Integer
Dim renvois As Integer
???????????????
???????????????
condition=caseX
End Function
--------------------------------------
alors la mesdames messieurs je blockkkkkkke

si quelqu'un a une idée je le remercie infiniment.

en attendant vos réponses merci d'avance