Attribute VB_Name = "testapplicaiotnother4"
Sub テスト()

    Dim waitTime As Variant

    Range("B2") = "開始"

    waitTime = Now + TimeValue("0:00:05")
    Application.Wait waitTime

    Range("B3") = "終了"
    
End Sub