Call a Sub with a String

I want to call a different sub depending on the value of i. For example, if i = 1 call sale_call1 and if i = 2 call sale_call2. Private Sub test_Click() Dim i As String Dim pro As String ...