VERSION 5.00 Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll" Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "msinet.ocx" Begin VB.Form frmDic_2022 BorderStyle = 1 'Fixed Single Caption = "Add New Word to Dictionary" ClientHeight = 10740 ClientLeft = 45 ClientTop = 435 ClientWidth = 12510 Icon = "frmDic_2022.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 10740 ScaleWidth = 12510 StartUpPosition = 2 'CenterScreen Begin InetCtlsObjects.Inet Inet1 Left = 10920 Top = 4680 _ExtentX = 1005 _ExtentY = 1005 _Version = 393216 End Begin VB.CommandButton cmdSend2 Caption = "Send Sound" BeginProperty Font Name = "Tahoma" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 33 Top = 10200 Width = 2175 End Begin VB.CommandButton cmdDic2 Caption = "Naver Dictionary " BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 6480 TabIndex = 30 Top = 1800 Width = 1575 End Begin VB.CommandButton Command2 Caption = "Make Sentence Blank Word" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 9360 TabIndex = 26 Top = 6720 Width = 2535 End Begin VB.TextBox txtDef_K BeginProperty Font Name = "맑은 고딕" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 24 Top = 9000 Width = 11655 End Begin VB.TextBox txtDef_New BeginProperty Font Name = "Tahoma" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 IMEMode = 3 'DISABLE Left = 240 TabIndex = 22 Top = 8160 Width = 11655 End Begin VB.TextBox txtSentence_B BeginProperty Font Name = "Tahoma" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 IMEMode = 3 'DISABLE Left = 240 TabIndex = 21 Top = 7200 Width = 11655 End Begin VB.TextBox txtSentence_K BeginProperty Font Name = "맑은 고딕" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 19 Top = 6120 Width = 11655 End Begin VB.TextBox txtSentence BeginProperty Font Name = "Tahoma" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 IMEMode = 3 'DISABLE Left = 240 TabIndex = 17 Top = 5280 Width = 11655 End Begin VB.TextBox txtKorean BeginProperty Font Name = "맑은 고딕" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 15 Top = 3960 Width = 7815 End Begin VB.CommandButton cmdSend Caption = "Send Picture" BeginProperty Font Name = "Tahoma" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 13 Top = 9600 Width = 2175 End Begin VB.TextBox txtWord BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1395 IMEMode = 3 'DISABLE Index = 4 Left = 240 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 11 Top = 2280 Width = 7815 End Begin VB.TextBox txtWord BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 3 Left = 4440 TabIndex = 8 Top = 1200 Visible = 0 'False Width = 2415 End Begin VB.TextBox txtWord BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 465 IMEMode = 3 'DISABLE Index = 0 Left = 240 TabIndex = 0 Top = 480 Width = 4095 End Begin VB.TextBox txtWord BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 IMEMode = 3 'DISABLE Index = 1 Left = 240 TabIndex = 4 Top = 1200 Width = 1695 End Begin VB.TextBox txtWord BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 IMEMode = 3 'DISABLE Index = 2 Left = 2160 TabIndex = 3 Top = 1200 Width = 1695 End Begin VB.CommandButton cmdFind Caption = "Find" Height = 375 Left = 4440 TabIndex = 2 Top = 480 Width = 1335 End Begin VB.CommandButton Command13 Caption = "Save" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 6120 TabIndex = 1 Top = 480 Width = 1335 End Begin VB.Label Label15 AutoSize = -1 'True Caption = "MP3 사운드 파일 / ABCSound 폴더에 이름의 사운드 파일이 있어야 함" BeginProperty Font Name = "맑은 고딕" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 2520 TabIndex = 32 Top = 10320 Width = 6540 End Begin VB.Label Label7 AutoSize = -1 'True Caption = "190 x 180 JPG 파일의 그림 파일 / ABCPicture 폴더에 이름의 그림 파일이 있어야 함" BeginProperty Font Name = "맑은 고딕" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 2520 TabIndex = 31 Top = 9720 Width = 7515 End Begin WMPLibCtl.WindowsMediaPlayer Web2 Height = 975 Left = 8400 TabIndex = 29 Top = 3480 Width = 3375 URL = "" rate = 1 balance = 0 currentPosition = 0 defaultFrame = "" playCount = 1 autoStart = -1 'True currentMarker = 0 invokeURLs = -1 'True baseURL = "" volume = 50 mute = 0 'False uiMode = "full" stretchToFit = 0 'False windowlessVideo = 0 'False enabled = -1 'True enableContextMenu= -1 'True fullScreen = 0 'False SAMIStyle = "" SAMILang = "" SAMIFilename = "" captioningID = "" enableErrorDialogs= 0 'False _cx = 5953 _cy = 1720 End Begin WMPLibCtl.WindowsMediaPlayer Web1 Height = 3735 Left = 8400 TabIndex = 28 Top = 720 Width = 3375 URL = "" rate = 1 balance = 0 currentPosition = 0 defaultFrame = "" playCount = 1 autoStart = -1 'True currentMarker = 0 invokeURLs = -1 'True baseURL = "" volume = 50 mute = 0 'False uiMode = "full" stretchToFit = 0 'False windowlessVideo = 0 'False enabled = -1 'True enableContextMenu= -1 'True fullScreen = 0 'False SAMIStyle = "" SAMILang = "" SAMIFilename = "" captioningID = "" enableErrorDialogs= 0 'False _cx = 5953 _cy = 6588 End Begin VB.Label Label16 BackColor = &H0080C0FF& Caption = "아래 데이타가 없는 경우에는 Blank 저장됩니다" Height = 255 Left = 240 TabIndex = 27 Top = 4680 Width = 3975 End Begin VB.Label Label14 Caption = "New English Definition in Korea (영영 한글 해석)" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 25 Top = 8760 Width = 8775 End Begin VB.Label Label12 Caption = "New English Definition (English Definition에서 핵심 뜻 )" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 23 Top = 7920 Width = 9495 End Begin VB.Label Label13 Caption = "Word Sentence Blank (문장의 단어 블랭크 처리 하기, 문장 입력후 Make Sentence Blank Word 클릭)" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 20 Top = 6840 Width = 8775 End Begin VB.Label Label11 Caption = "Word Sentence Korean (문장 한글 해석)" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 18 Top = 5880 Width = 3135 End Begin VB.Label Label10 Caption = "Word Sentence (단어가 들어간 영어 문장)" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 16 Top = 5040 Width = 6255 End Begin VB.Label Label8 AutoSize = -1 'True Caption = "단어 추가시 단어의 그림이 없는 경우 picnone으로 표시합니다" BeginProperty Font Name = "맑은 고딕" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 240 TabIndex = 14 Top = 1680 Width = 4680 End Begin VB.Label Label6 Caption = "English Definition" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 12 Top = 2040 Width = 1575 End Begin VB.Label Label5 Caption = "Korean Definition" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 10 Top = 3720 Width = 2895 End Begin VB.Label Label4 AutoSize = -1 'True Caption = "Picture No (New Word 저장시 입력 필요없음)" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 4440 TabIndex = 9 Top = 960 Visible = 0 'False Width = 3405 End Begin VB.Label Label3 Caption = "Sound File" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 2160 TabIndex = 7 Top = 960 Width = 1575 End Begin VB.Label Label2 AutoSize = -1 'True Caption = "Picture File" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 240 TabIndex = 6 Top = 960 Width = 780 End Begin VB.Label Label1 Caption = "Word (숙어와 같이 여러 단어들은 하이폰을 사용합니다 예: Get_Up" Height = 255 Left = 240 TabIndex = 5 Top = 120 Width = 7575 End End Attribute VB_Name = "frmDic_2022" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim Cnn As New ADODB.Connection Dim RsWeb As New ADODB.Recordset Dim tSQL As String, CnStr As String Private Sub cmdDic2_Click() Dim Cnn As New ADODB.Connection Dim RsWeb As New ADODB.Recordset Dim CnStr As String, tSQL As String Dim sSql As String, WordIs As String, GetWord As String, Firstit As String Dim Posdel As Integer Dim Instring As String, Delim As String, NewWords As String Dim WordIs2 As String Dim WhereIt As String, LeftStory As String, Seeit As String Dim i As Integer, X As Integer, q As Integer, j As Integer Dim UseLength As Integer Dim Y As Integer Dim vGoNext As String Dim vRun As String Dim vRun_Program As String pURL = "https://en.dict.naver.com/#/search?range=all&query=" + txtWord(0).Text If FileExists("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe") = 1 Then vRun_Program = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" vRun = vRun_Program + " " + pURL Shell vRun, vbNormalFocus Else If FileExists("C:\Program Files\Google\Chrome\Application\chrome.exe") = 1 Then vRun_Program = "C:\Program Files\Google\Chrome\Application\chrome.exe" vRun = vRun_Program + " " + pURL Shell vRun, vbNormalFocus Else If FileExists("C:\Program Files (x86)\Internet Explorer\iexplore.exe") = 1 Then vRun_Program = "C:\Program Files (x86)\Internet Explorer\iexplore.exe" vRun = vRun_Program + " " + pURL Shell vRun, vbNormalFocus Else If FileExists("C:\Program Files\Internet Explorer\iexplore.exe") = 1 Then vRun_Program = "C:\Program Files\Internet Explorer\iexplore.exe" vRun = vRun_Program + " " + pURL Shell vRun, vbNormalFocus End If End If End If End If End Sub Private Sub cmdFind_Click() Dim vFolder As String If txtWord(0).Text = "" Then MsgBox "Enter Word to Find" Exit Sub End If CnStr = VisionData Cnn.Open (CnStr) tSQL = "select * from dictionary where word='" & txtWord(0).Text & "'" RsWeb.Open tSQL, Cnn, adOpenKeyset, adLockOptimistic If Not RsWeb.EOF Or Not RsWeb.BOF Then txtWord(1).Text = RsWeb!picWord txtWord(2).Text = RsWeb!scode txtWord(3).Text = RsWeb!picNo txtWord(4).Text = RsWeb!definition txtKorean.Text = RsWeb!n_korean txtSentence.Text = RsWeb!n_sentence txtSentence_K.Text = RsWeb!n_sentence_korean txtSentence_B.Text = RsWeb!n_sentence_blank txtDef_New.Text = RsWeb!n_english txtDef_K.Text = RsWeb!n_english_korean Web2.URL = "Http://" + FTP2 + "/ABCSound/" + RsWeb!scode + ".mp3" If RsWeb!picWord <> "picnone" Then Web1.URL = "Http://" + FTP2 + "/ABCPicture_2013/" & RsWeb!picWord & ".jpg" Else Web1.URL = "" txtWord(1).Text = "picnone" txtWord(3).Text = RsWeb!autono End If Else MsgBox "Not Found" txtWord(1).Text = "" txtWord(2).Text = "" txtWord(3).Text = "" txtWord(4).Text = "" txtKorean.Text = "" txtSentence.Text = "" txtSentence_K.Text = "" txtSentence_B.Text = "" txtDef_New.Text = "" txtDef_K.Text = "" End If RsWeb.Close Cnn.Close End Sub Private Sub cmdSend_Click() Dim vFile As String, vM As String Dim vFile2 As String, vFile1 As String Dim i As Integer Dim vAddNoComputer As Integer Dim vChangeNo As String Dim vFileTo As String Dim vSendTo As String Dim sSql As String Dim pFTP As String, pFTPFolder As String Dim pFTPuserName As String, pFTPPassword As String Dim Cnn As New ADODB.Connection Dim RsWeb As New ADODB.Recordset Dim CnStr As String, tSQL As String Dim VisionServer As String Dim pProgram As String Dim vServerNo As Integer If txtWord(1).Text = "" Then MsgBox "Picture File Data Missing" Exit Sub End If vFile = LCase(txtWord(1).Text) + ".jpg" If FileExists(App.Path + "\ABCPicture\" + vFile) <> 1 Then MsgBox "ABCPicture 폴더에 " + txtWord(1).Text + ".jpg" + " 그림 파일이 없습니다" Exit Sub End If ' On Error GoTo Errhandle Screen.MousePointer = vbHourglass pFTP = "211.110.1.18" pFTPFolder = "www/Suda_Data/ABCPicture_2013/" pFTPuserName = "visionwork" pFTPPassword = "v3600724" vFile1 = pFTPFolder + vFile vFile2 = App.Path + "\ABCPicture\" + vFile vM = "SEND " vM = vM + vFile2 vM = vM + " " + vFile1 Inet1.Protocol = icFTP Inet1.URL = pFTP Inet1.UserName = pFTPuserName Inet1.Password = pFTPPassword Inet1.Execute While Inet1.StillExecuting DoEvents Wend Inet1.Execute , vM While Inet1.StillExecuting DoEvents Wend Inet1.Cancel Screen.MousePointer = vbDefault MsgBox "전송되었습니다 를 클릭하여 전송된 그림을 확인하십시오" End Sub Private Sub Command1_Click() End Sub Private Sub cmdSend2_Click() Dim vFile As String, vM As String Dim vFile2 As String, vFile1 As String Dim i As Integer Dim vAddNoComputer As Integer Dim vChangeNo As String Dim vFileTo As String Dim vSendTo As String Dim sSql As String Dim pFTP As String, pFTPFolder As String Dim pFTPuserName As String, pFTPPassword As String Dim Cnn As New ADODB.Connection Dim RsWeb As New ADODB.Recordset Dim CnStr As String, tSQL As String Dim VisionServer As String Dim pProgram As String Dim vServerNo As Integer If txtWord(2).Text = "" Then MsgBox "Sound File Data Missing" Exit Sub End If vFile = LCase(txtWord(2).Text) + ".mp3" If FileExists(App.Path + "\ABCSound\" + vFile) <> 1 Then MsgBox "ABCSound 폴더에 " + txtWord(2).Text + ".mp3" + " 사운드 파일이 없습니다" Exit Sub End If ' On Error GoTo Errhandle Screen.MousePointer = vbHourglass pFTP = "211.110.1.18" pFTPFolder = "www/Suda_Data/ABCSound/" pFTPuserName = "visionwork" pFTPPassword = "v3600724" vFile1 = pFTPFolder + vFile vFile2 = App.Path + "\ABCSound\" + vFile vM = "SEND " vM = vM + vFile2 vM = vM + " " + vFile1 Inet1.Protocol = icFTP Inet1.URL = pFTP Inet1.UserName = pFTPuserName Inet1.Password = pFTPPassword Inet1.Execute While Inet1.StillExecuting DoEvents Wend Inet1.Execute , vM While Inet1.StillExecuting DoEvents Wend Inet1.Cancel Screen.MousePointer = vbDefault MsgBox "전송되었습니다 를 클릭하여 전송된 사운드를 확인하십시오" End Sub Private Sub Command13_Click() Dim Cnn As New ADODB.Connection Dim RsWeb As New ADODB.Recordset, RsWeb2 As New ADODB.Recordset Dim tSQL As String If txtWord(1).Text = "" Then MsgBox "Picword Data Missing" Exit Sub End If If txtWord(2).Text = "" Then MsgBox "Sound Data Missing" Exit Sub End If ' If txtWord(3).Text = "" Then ' MsgBox "picture No Data Missing" ' Exit Sub ' End If If txtWord(4).Text = "" Then MsgBox "Definition Data Missing" Exit Sub End If ' If txtWord(5).Text = "" Then ' MsgBox "Korean Definition Data Missing" ' Exit Sub ' End If If txtKorean.Text = "" Then MsgBox "New Korean Definition Data Missing" Exit Sub End If If txtSentence.Text = "" Then MsgBox "Word Sentenct Data Missing" Exit Sub End If If txtSentence_K.Text = "" Then MsgBox "Word Sentenct Korean Data Missing" Exit Sub End If If txtSentence_B.Text = "" Then MsgBox "Word Sentenct Blank Data Missing" Exit Sub End If If txtDef_New.Text = "" Then MsgBox "New English Definition Data Missing" Exit Sub End If If txtDef_K.Text = "" Then MsgBox "New English Definition Korean Data Missing" Exit Sub End If CnStr = VisionData Cnn.Open (CnStr) tSQL = "select * from dictionary where word='" & txtWord(0).Text & "'" RsWeb.Open tSQL, Cnn, adOpenKeyset, adLockOptimistic If Not RsWeb.EOF Or Not RsWeb.BOF Then RsWeb!korean = txtKorean.Text RsWeb!picWord = LCase(txtWord(1).Text) RsWeb!definition = txtWord(4).Text RsWeb!scode = LCase(txtWord(2).Text) RsWeb!n_korean = txtKorean.Text RsWeb!n_sentence = txtSentence.Text RsWeb!n_sentence_korean = txtSentence_K.Text RsWeb!n_sentence_blank = txtSentence_B.Text RsWeb!n_english = txtDef_New.Text RsWeb!n_english_korean = txtDef_K.Text RsWeb.Update MsgBox "Updated" Else RsWeb.AddNew RsWeb!word = LCase(txtWord(0).Text) RsWeb!definition = txtWord(4).Text RsWeb!defsen = txtKorean.Text + vbCrLf + txtWord(4).Text RsWeb!picWord = LCase(txtWord(1).Text) RsWeb!scode = LCase(txtWord(2).Text) RsWeb!sentence = "NO" RsWeb!korean = txtKorean.Text RsWeb!code = LCase(txtWord(0).Text) RsWeb!def_korean = "Blank" RsWeb!n_korean = txtKorean.Text RsWeb!n_sentence = txtSentence.Text RsWeb!n_sentence_korean = txtSentence_K.Text RsWeb!n_sentence_blank = txtSentence_B.Text RsWeb!n_english = txtDef_New.Text RsWeb!n_english_korean = txtDef_K.Text RsWeb!new_sound = "YES" RsWeb.Update RsWeb.Close tSQL = "select * from dictionary where word='" & txtWord(0).Text & "'" RsWeb.Open tSQL, Cnn, adOpenKeyset, adLockOptimistic If Not RsWeb.EOF Or Not RsWeb.BOF Then RsWeb!picNo = RsWeb!autono RsWeb.Update End If MsgBox "New Word Saved" End If RsWeb.Close Cnn.Close End Sub Private Sub Command2_Click() Dim Delim As String Dim Posdel As Integer Dim vGot As String, vGot2 As String Dim vLeft As String, vRight As String Dim i As Integer Dim Cnn As New ADODB.Connection Dim RsWeb As New ADODB.Recordset, RsWeb2 As New ADODB.Recordset Dim CnStr As String, tSQL As String Dim vNo As Integer If txtWord(0).Text = "" Then MsgBox "단어가 없습니다." Exit Sub End If If txtSentence.Text = "" Then MsgBox "단어가 사용된 문장이 없습니다." Exit Sub End If vGot = txtSentence.Text Delim = LCase(txtWord(0).Text) Posdel = InStr(vGot, Delim) If Posdel > 0 Then vLeft = Left(vGot, Posdel - 1) vRight = " " + Mid(vGot, Posdel + Len(Delim) + 1) If vRight = " " Then vGot = vLeft + "______" + vRight + "." Else vGot = vLeft + "______" + vRight End If Else vLeft = "______" vRight = Mid(vGot, Posdel + Len(Delim) + 1) vGot = vLeft + " " + vRight End If txtSentence_B.Text = vGot End Sub Private Sub txtWord_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cmdFind.Value = True End If End Sub