VB6.0 以前

    ' 必要な変数を宣言する
    Dim dtNow As Date
    dtNow = CDate(DateTime.Now)

    ' 指定した書式で日付を文字列に変換する
    Dim stPrompt1 As String
    stPrompt1 = Format$(dtNow, "yyyy/MM/dd (ddd) HH:mm:ss")

    ' 結果を表示する
    Call MsgBox(stPrompt1)

    ' 指定した書式で日付を文字列に変換する
    Dim stPrompt2 As String
    stPrompt2 = Format$(dtNow, "yyyy年MM月dd日 (dddd) hh時mm分ss秒")

    ' 結果を表示する
    Call MsgBox(stPrompt2)