vba compile errorsub or function : the following is my code and I am getting the compile error while it runs, pleae help me to solve

Private Sub CommandButton1_Click()
    Dim yourname As String
    Dim yourbirthday As Date
    Dim yourincome As Currency
    your Name = "Rahul"
    yourbirthday = "26/03/1996"
    yourincome = "100000"
    Range("A1") = yourname
    Range("A2") = yourbirthday
    Range("A3") = yourincome
End Sub

