declaration of a public varible

declaring a public variable, this is the syntax i used... i cant get it to keep the variable public. it just loses the value after the sub is ran

here is what i have

Public m_letter As String, m_number As String
'end public varible declaration


Sub MRevs()
   Dim gpCode(1) As Integer
   Dim dataValue(1) As Variant
   Dim SS_WFrev As AcadSelectionSet
   
   SS_delete 1
   
   Set SS_WFrev = ThisDrawing.SelectionSets.Add("SS_WFrev")
       gpCode(0) = 0: dataValue(0) = "INSERT"
       gpCode(1) = 2: dataValue(1) = "WFREV"
       
       SS_WFrev.Select acSelectionSetAll, , , gpCode, dataValue
       
       Dim Cur_Blk As AcadBlockReference
       Dim Blk_Atts() As AcadAttributeReference
       Dim Cur_att As AcadAttributeReference
       Dim i As Integer, n As Integer
       
       For i = 0 To SS_WFrev.Count - 1
           Set Cur_Blk = SS_WFrev.Item(i)
           Blk_Atts = Cur_Blk.GetAttributes
           
           For n = 0 To UBound(Blk_Atts)
               Set Cur_att = Blk_Atts(n)
               
               If Cur_att.TagString = "REVNO" Then
               
                   If IsNumeric(Cur_att.TextString) Then
                       If Cur_att.TextString > m_number Then
                           m_number = Cur_att.TextString
                       End If
                   Else
                       If Cur_att.TextString > m_letter Then
                           m_letter = Cur_att.TextString
                       End If
                   End If
           
               End If
           
           Next n
           
       Next i
End Sub


Sub changerevtri()
   Dim gpCode(1) As Integer
   Dim dataValue(1) As Variant
   Dim SS_Revtag As AcadSelectionSet
   
   SS_delete 1
   
   Set SS_Revtag = ThisDrawing.SelectionSets.Add("SS_Revtag")
       gpCode(0) = 0: dataValue(0) = "INSERT"
       gpCode(1) = 2: dataValue(1) = "revtag"
       
       SS_Revtag.Select acSelectionSetAll, , , gpCode, dataValue
       
       Dim Cur_Blk As AcadBlockReference
       Dim Blk_Atts() As AcadAttributeReference
       Dim Cur_att As AcadAttributeReference
       Dim i As Integer, n As Integer
       
       For i = 0 To SS_Revtag.Count - 1
           Set Cur_Blk = SS_Revtag.Item(i)
           Blk_Atts = Cur_Blk.GetAttributes
           
           For n = 0 To UBound(Blk_Atts)
               Set Cur_att = Blk_Atts(n)
               
               If Cur_att.TagString = "REV#" Then
                   Cur_att.TextString = m_number
               End If
           
           Next n
       
       Next i
   Application.Update
End Sub

You should leave the question in place and post the answer too. That way others could learn from you.

You should leave the question in place and post the answer too. That way others could learn from you.

Glad you worked up

Okay, i figured out my problem. when i set the pubic variables i set them in between two different subs. To have your variables public and accessible they have to be at the very top of the module you are working on... above all subs just like the example coding.

FWIW -

Access Levels in Visual Basic