怎么做才正确呀!帮我!

Private strBookID As String
    Private strBookName As String
    Private strPublisher As String
    Private strPublishDate As String
    Private strAuthor As String
    Private strPurchaseDate As String
    Private strPrice As String
'以上变量已经初始化,在这里省略....Private Sub Judgment()    Dim ctrCurrent As Control
    Dim strTextName As String
    Dim strString As String
    
    For Each ctrCurrent In Me.Controls
      If TypeName(ctrCurrent) = "TextBox" Then
         strString = strChange(ctrCurrent.Name)
         
         If ctrCurrent.Text <> strString Then '
            cmdOk.Enabled = True
         End If
      End If
    Next
End Sub
Private Function strChange(ByVal strConName As String) As String    strChange = Replace(strConName, "txt", "str", compare:=vbBinaryCompare)
End Function我的控件名除了前面的"txt"与上面的变量不同,其他的方都相同,如:
控件名: txtBookID
变量名: strBookID
我现在已经用strChange函数把txt替换成str了.(strString变量),但它只是个字符串"strBookID".怎样才能将上面的strString里的内容=strBookID的内容呢?