转换问题???

dim str_dtime as date
str_dtime = 2002-05-15


我要得到的结果为是在月份后面加两个月/.
得到为 str_dtime = 2002-07-15

请问在vb中怎么实现哦

[解决办法]
Option Explicit

Private Sub Command1_Click()
Call MsgBox(Test( "2002-07-15 "))
End Sub

Private Function Test(ByVal strData As String) As String
Dim intMonth As Integer, intYear As Integer, intDay As Integer, strResult As String

intMonth = Month(CDate(strData))
intYear = Year(CDate(strData))
intDay = Day(CDate(strData))
strResult = IIf(intMonth + 2 > 12, intYear + 1 & "- " & intMonth + 2 - 12 & "- " & intDay, intYear & "- " & intMonth + 2 & "- " & intDay)
strResult = Format(strResult, "YYYY-MM-DD ")

Test = strResult
End Function