哪位朋友能帮忙用VB代码把下面两个时间格式改一下呵？非常感谢
11/9/2015 12:00:00 AM  改成取值20151109
1/19/2015 12:00:00 AM  改成取值20150119

Private Sub Command1_Click()
   y = Year("11/9/2015 12:00:00 AM")
   m = Month("11/9/2015 12:00:00 AM")
   d = Day("11/9/2015 12:00:00 AM")
   If d < 10 And m < 10 Then
     s = y & "0" & m & "0" & d
   ElseIf d < 10 Then
     s = y & m & "0" & d
   ElseIf m < 10 Then
     s = y & "0" & m & "0" & d
    ElseIf m < 10 Then
     s = y & m & d
   End If
   MsgBox s
End Sub

Format(Now(), "YYYYMMDD")