Public Function Convert(ByVal Input As String) As String
If Input = "tarikhe miladi" Then
return "tarikh shamsi"
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.