VBAでテキストボックスと変数を表示する

Question

私はWord 2010を使用しています。変数を表示するテキストボックスを取得しようとしています。

私はそれをコーディングすることができ、その逆のように：しかし

Private Sub OverallScore_Click() 

OverallTotalScore = Attendance + DiligenceTotalScore + QualityTotalScore + SafetyTotalScore + TeamworkTotalScore + SkillsTotalScore 

Select Case OverallTotalScore 
    Case 0 To 69 
     OverallScoreTextBox.Text = ("Rate increase $0.20 " & OverallTotalScore) 
    Case 70 To 77 
     OverallScoreTextBox.Text = ("Rate increase $0.25 " & OverallTotalScore) 
    Case 78 To 84 
     OverallScoreTextBox.Text = ("Rate increase $0.35 " & OverallTotalScore) 
    Case 85 To 92 
     OverallScoreTextBox.Text = ("Rate increase $0.45 " & OverallTotalScore) 
    Case 93 To 100 
     OverallScoreTextBox.Text = ("Rate increase $0.50 " & OverallTotalScore) 
    End Select 

が、私はそれが第1のスコアとして表示し、テキスト

Answer 1

使用この

Private Sub OverallScore_Click() 

OverallTotalScore = Attendance + DiligenceTotalScore + QualityTotalScore + SafetyTotalScore + TeamworkTotalScore + SkillsTotalScore 

Select Case OverallTotalScore 
    Case 0 To 69 
     OverallScoreTextBox.Text = (OverallTotalScore & " Rate increase $0.20") 
    Case 70 To 77 
     OverallScoreTextBox.Text = (OverallTotalScore & " Rate increase $0.25") 
    Case 78 To 84 
     OverallScoreTextBox.Text = (OverallTotalScore & " Rate increase $0.35") 
    Case 85 To 92 
     OverallScoreTextBox.Text = (OverallTotalScore & " Rate increase $0.45") 
    Case 93 To 100 
     OverallScoreTextBox.Text = (OverallTotalScore & " Rate increase $0.50") 
    End Select 
End sub 

&をするために使用されたいですあなたの文字列を（それらを連結して）ビルドするので、両側にあるものを簡単に切り替えることができます