how can I loop the const storecode01 value to the whole private sub?

Const storecode01 As Integer = 1
Const storecode01 As Integer = 3
Const storecode01 As Integer = 5
Const storecode01 As Integer = 7

Const storecode01 As Integer = 1
Private Sub StoreO()
    Dim s As String = ""
    

    Dim cn As New SqlClient.SqlConnection
    Dim cm As New SqlClient.SqlCommand


    cn.ConnectionString = "Server=SAMPLESESERVER;Database=Database;User Id=id; Password=pass;"
    cn.Open()
    cm.Connection = cn
    cm.CommandText = "sp_Storedproc"
    cm.CommandType = CommandType.StoredProcedure
    cm.Parameters.Add("@storecode", SqlDbType.Int).Value = storecode01

    Dim dt As New DataTable
    dt.Load(cm.ExecuteReader)

    If dt.Rows.Count > 0 Then
        Dim r As DataRow

        For Each r In dt.Rows
            s = s & r("Name").ToString & ";" & r("Address").ToString & ";" & r("Age").ToString & vbCrLf
        Next
    End If
    FolderBrowserDialog1.ShowDialog()
    Dim filename = FolderBrowserDialog1.SelectedPath & "Sample.txt"
    IO.File.WriteAllText(filename, s, System.Text.Encoding.UTF8)
    Close()
End Sub