Desc Ex : Calculator

sub TypeKey(vkey)

         Select Case vKey
                  Case "*"
                   vKey = "\*"
           End Select
          With Window("nativeclass:=SciCalc")
                  .WinButton("text:=" & vKey).Click
           End With
End Sub

TypeKey 5
TypeKey "*"
TypeKey 9
TypeKey "="