我想我的代碼返回隨機名稱

Question

嗨我想我的代碼在文本框中返回隨機名稱，但它總是給我一個錯誤。這裏是我的代碼：

Private Sub CommandButton1_Click() 


TextBox1.Text = Evaluate(Choose(RandBetween(1, 3), "Kwezi", "MAy", "FR")) 
TextBox2.Text = Evaluate(Choose(RandBetween(1, 3), "Kwezi", "MAy", "FR")) 
TextBox3.Text = Evaluate(Choose(RandBetween(1, 3), "Kwezi", "MAy", "FR")) 


End Sub 

Answer 1

Private Sub CommandButton1_Click() 
    TextBox1.Text = Choose(WorksheetFunction.RandBetween(1, 3), "Kwezi", "MAy", "FR") 
    TextBox2.Text = Choose(WorksheetFunction.RandBetween(1, 3), "Kwezi", "MAy", "FR") 
    TextBox3.Text = Choose(WorksheetFunction.RandBetween(1, 3), "Kwezi", "MAy", "FR") 
End Sub