高手们下面的程序怎样简化啊？请指教。

Open "E:\数据库\数据库01\002\公01式1.txt" For Input As #1
    xshu1() = xsh(tamp1) ''''''''''''''''''''''''''调用过程1
Open "E:\数据库\数据库01\003\公01式1.txt" For Input As #1
    xshu2() = xsh(tamp2) ''''''''''''''''''''''''''调用过程1
Open "E:\数据库\数据库01\004\公01式1.txt" For Input As #1
    xshu3() = xsh(tamp3) ''''''''''''''''''''''''''调用过程1
 gshi = "公01式1"
If xshu1(1) = xshu2(1) And xshu1(1) = xshu3(1) Then
Open "E:\数据库\数据库01\005\公01式1.txt" For Input As #1
Call gc2(xshu1(1), gshi) '''''''''''''''''''''''''''调用过程2
  End If
If xshu1(2) = xshu2(2) And xshu1(2) = xshu3(2) Then
Open "E:\数据库\数据库01\005\公01式1.txt" For Input As #1
Call gc3(xshu1(2), gshi) '''''''''''''''''''''''''''调用过程3
  End If

Open "E:\数据库\数据库01\002\公01式2.txt" For Input As #1
    xshu1() = xsh(tamp1) ''''''''''''''''''''''''''调用过程1
Open "E:\数据库\数据库01\003\公01式2.txt" For Input As #1
    xshu2() = xsh(tamp2) ''''''''''''''''''''''''''调用过程1
Open "E:\数据库\数据库01\004\公01式2.txt" For Input As #1
    xshu3() = xsh(tamp3) ''''''''''''''''''''''''''调用过程1
 gshi = "公01式2"
If xshu1(1) = xshu2(1) And xshu1(1) = xshu3(1) Then
Open "E:\数据库\数据库01\005\公01式2.txt" For Input As #1
Call gc2(xshu1(1), gshi) '''''''''''''''''''''''''''调用过程2
  End If
If xshu1(2) = xshu2(2) And xshu1(2) = xshu3(2) Then
Open "E:\数据库\数据库01\005\公01式2.txt" For Input As #1
Call gc3(xshu1(2), gshi) '''''''''''''''''''''''''''调用过程3
  End If

Open "E:\数据库\数据库01\002\公01式3.txt" For Input As #1
    xshu1() = xsh(tamp1) ''''''''''''''''''''''''''调用过程1
Open "E:\数据库\数据库01\003\公01式3.txt" For Input As #1
    xshu2() = xsh(tamp2) ''''''''''''''''''''''''''调用过程1
Open "E:\数据库\数据库01\004\公01式3.txt" For Input As #1
    xshu3() = xsh(tamp3) ''''''''''''''''''''''''''调用过程1
 gshi = "公01式3"
If xshu1(1) = xshu2(1) And xshu1(1) = xshu3(1) Then
Open "E:\数据库\数据库01\005\公01式3.txt" For Input As #1
Call gc2(xshu1(1), gshi) '''''''''''''''''''''''''''调用过程2
  End If
If xshu1(2) = xshu2(2) And xshu1(2) = xshu3(2) Then
Open "E:\数据库\数据库01\005\公01式3.txt" For Input As #1
Call gc3(xshu1(2), gshi) '''''''''''''''''''''''''''调用过程3
  End If