VB 高手进，文本筛选问题

我想通过快捷键，F1-F9，作标签
把TXT用一下的格式保存~[F1]-[F9]最为每行的关键字，
[F1]XXXXXXXX
[F3]XXXXXXXX
[F4]XXXXXXXX
[F5]XXXXXXXX
我现在的问题就是，当按F1时，会输出"[F1]XXXXXXXX",我不想要[F1]
我只想提取[F1]后面的东东XXXXXXXX
代码我已经写好了，请高手帮我解决下怎么去掉[F1]
Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long _
) As Long
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Private KeyLoop As Long
Private FoundKeys As Str

excel中的文本筛选问题，请高手帮帮忙！ Excel 模糊筛选问题！！说不清楚 高手进！！ VB文本问题 VB创建文本问题 vb文本控件问题 VB文本比较问题 困扰多时的VB筛选问题 vb读取文本的问题 VB文本输入内容问题 vb 取得文本字符问题