Attribute VB_Name = "test2"
Sub テスト()
    Dim a As Integer
    Dim b As Double
    Dim c As String
    Dim d As String
    Dim e As Date
    
    a = 340
    b = 2450.887
    c = "こんにちは"
    d = "340"
    e = #8/23/2006#
    
    Range("A1").Value = a
    Range("A2").Value = b
    Range("A3").Value = c
    Range("A4").Value = d
    Range("A5").Value = e
End Sub