Public Function Convert(ByVal Input As String) As String
If Input = "tarikhe miladi" Then
return "tarikh shamsi"
End If
Return ""
End Function
Or if you actually asking for a calendar translation, and not just a straight translation, try
here[
^]. It's in C#, but it's easy enough to convert to VB.