随机英语单词如何随机隐藏单词中的几个字母（所隐藏的字母有len函数判断大小后再决定要隐藏几个）

   If Replace(Text9, "a", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "a", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "b", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "b", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "c", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "c", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
        Exit Sub
   ElseIf Replace(Text9, "d", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "d", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
          Exit Sub
   ElseIf Replace(Text9, "e", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "e", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "f", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "f", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "g", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "g", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
     Exit Sub
   ElseIf Replace(Text9, "h", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "h", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "i", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "i", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "j", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "j", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "k", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "k", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "l", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "l", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "m", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "m", "m", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "n", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "n", "n", 1) '从第1第字符数起，把字符中有r的替换为*号
     Exit Sub
   ElseIf Replace(Text9, "o", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "o", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "p", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "p", "p", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "q", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "q", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
     Exit Sub
   ElseIf Replace(Text9, "r", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "r", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "s", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "s", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
     Exit Sub
   ElseIf Replace(Text9, "t", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "t", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "u", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "u", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
     Exit Sub
   ElseIf Replace(Text9, "v", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "v", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "w", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "w", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "x", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "x", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "y", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "y", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub
   ElseIf Replace(Text9, "z", "*", 1) <> "" Then
      Me.Text29 = Replace(Text9, "z", "*", 1) '从第1第字符数起，把字符中有r的替换为*号
      Exit Sub

   End If

为什么我用了上面的代码后，只替换了字母a，而其它字母不换呢，伤脑筋