date coversion(American to Indian Format and vice versa)

Public Function fn_convertdate(ByVal dates As String) As String
Try
Dim strr(), str As String

str = dates
strr = dates.Split("/")
str = strr(0)
strr(0) = strr(1)
strr(1) = str

dates = ""
dates = strr(0) & "/"
dates += strr(1) & "/"
dates += strr(2)

Return dates
Catch ex As Exception

End Try

End Function